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81 Bleu: consejos sobre cuestiones prácticas 


CAPITULO VI. 


87 El BASIC, un lenguaje-caracol 


115 logra ía 


n este volumen afrontaremos el delicadísimo 
problema de la programación. El tema está de- 
sarroliado basándose especialmente en el BA- 
SIC, aunque tampoco faltarán esporádicas refe- 
rencias al Pascal, lenguaje del que ya conoce- 
mos algo, gracias al número anterior de la BBI 
(introducción al Pascal). 

Los temas que se podrían tratar, con el ries- 
go de repetir lo dicho y repetido en otros tex- 
tos y en las revistas especializadas, son muchísimos: desde el al- 
goritmo de resolución más adecuado, hasta la mejor utilización de 
la máquina de que se dispone, pasando por el estilo del progra- 
ma, visto especialmente bajo el perfil de sus características "user 
friendly” (manejo claro y sencillo). En efecto, pasaron ya los días 
en los que un programa servía sólo para el uso de quienes lo ha- 
bían redactado y que, por lo tanto, en caso de problemas sólo po- 
dían enfadarse con ellos mismos (y ya sabemos que con nosotros 
mismos tendemos a ser especialmente indulgentes). 

Entre tantas posibilidades nos hemos decidido a concretar al 
máximo la problemática de los algoritmos resolutivos (aunque sin 
ninguna pretensión de desarrollar un tratado exhaustivo). Hemos 
procedido a través de ejemplos de creciente complejidad y limí- 
tándonos a un BASIC muy estándar. Así pretendemos alcanzar dos 
objetivos: 


O facilitar la comprensión de la problemática que supone la 
realización y puesta en marcha de un programa, 

9 salir de los límites de un BASIC demasiado vinculado a las 
interioridades del propio microsistema, 


Pensamos sin falsa modestia que este tratamiento será apre- 
ciado por todos los que quieran entender lo que quiere decir PRO- 
GRAMAR, 

Los dos últimos capítulos incluyen problemas muy prácticos 
que buscan hacer todo lo veloz y eficiente que se pueda el "ca- 
racol” que es el BASIC interpretado. Por razones de espacio y de 
concreción nos referimos al popular Commodore 64, pero los te- 
mas y problemas tocados resultan muy típicos, por ejemplo, el 
problema del "garbage collection” (identificación de la informa- 
ción inservible) de las cadenas, Es por esto que los consejos que 
damos hay que considerarlos prácticamente de aplicación uni- 
versal. 


EL GALIMATIAS DE LOS ALGORITMOS 


¿Es el software un arte? 


-sta pregunta, realmente crucial, afecta hoy en día 
no sólo a los usuarios, sino también a una gran 
cantidad de empresas interesadas en transfor- 
mar esta actividad artesanal en industrial. “The 
art oí programming”: así se titula el talismán para 
el programador, una monumental enciclopedia 
del Software escrita por Knuth, uno de los “ge- 
nios” en esta materia. En sus muchos tomos el au- 
B tor pasa lista, explicándolos y clasificándolos, a 
la mayor parte de los tipos de algoritmos usados en la programa- 
ción. Muchas veces ocurre que principiantes y semiexpertos co- 
pian un procedimiento de una revista o un libro, que, a su vez, 
está recogido de esta fuente sagrada del software. - 

No hay que escandalizarse por ello. Además, aunque esto sir- 
va desde un punto de vista general Es muy difícil, cuando se tle- 
ne un problema particular, encontrar una receta adecuada preci- 
samente para nuestro caso. Quizá exista en algún sitio (casi está 
ya todo inventado en este mundo), pero ¿dónde? En estos casos 
no queda más remedio que arreglárselas solos. Por desgracia, a 
menudo surge la inquietante pregunta: sí, estoy dispuesto, ¿por 
dónde empiezo? 

En la programación, efectivamente, hay ocasiones en las que 
la la flexibilidad y la libertad de acción se traducen en tragedia, 
peor incluso que la del célebre asno que, puesto delante de dos 
montones de heno, se murió de hambre por no saber por cuál de- 
cidirse, En el caso del software, más que de dilema se debería ha- 
blar de multidilemas (dilemas super ramificados); las reglas (sen- 
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y 


lencias, bucles, COTO) en realidad son pocas, pero ¿cómo se pue- 
den combinar adecuadamente? Que nosotros sepamos, hasta aho- 
ra nadie ha conseguido hacer otra cosa que no sea proporcionar 
ejemplos, recomendando que, en casos semejantes, se proceda 
"por analogía”. Sustancialmente, en este libro haremos lo mismo 
(si dijéramos lo contrario no seríamos honrados). 

En definitiva, ¿quiere todo esto decir que el software es un 
arte? Según nuestro punto de vista sí, a pesar de los desespera- 
dos esfuerzos para producirlo de manera, incluso, "automática", 
mediante los más dispares métodos. Tomemos como ejemplo el 
caso del Last One, programa que genera un listado BASIC basán- 
dose tan sólo en las especificaciones del problema dadas por el 
usuario. Después de semanas enteras aprendiendo su uso y em- 
pleándolo, ¿cuántos son los que se han dado cuenta que la cosa 
marcha siempre en aquellos casos en los que se las habrían arre- 
glado perfectamente solos, por normales que fueran sus conoci- 
mientos, con menos trajines y obteniendo programas más eficien- 
les, veloces y compactos? En los casos inéditos o, lo que es lo mis- 
mo, en nuestros problemas reales, estamos otra vez como al prin- 
cipio: la pantalla (o la impresora) permanecen inactivas: necesitan 
una idea, lo mismo que nos ocurre a nosotros, 

Como muchos ya saben, la idea de partida, ésa que puede lle- 
cjar mediante la intuición creativa, por obra y gracia de la medi- 
lación trascendental, o por cualquier otro medio por raro que pue- 
da parecernos, se llama "algoritmo", término que deriva del nom- 
bre del matemático árabe Al-Khuwarizmi. Un algoritmo es un con- 
junto de reglas o formas de actuar para la resolución de un pro- 
blema. 

La figura 1 muestra el esquema general de la génesis y rea- 
lización de un programa. Los especialistas ofrecen infinidad de va- 
riantes de este esquema, pero en todas ellas hay un punto común: 
el comienzo es BUSCAR UN ALGORITMO RESOLUTORÍO, y éste 
es el punto más delicado de todo el proceso. 

Sin embargo, no queremos desanimar a los que se acercan 
por primera vez a un ordenador. El software es un arte, pero tam- 
bién se puede aprender, para las personas con fuerza de volun- 
lacl se trata de un desafío excitante y estimulante 


Algoritmo euclidiano y otros algoritmos numéricos 

Dado que no parece posible elaborar una teoría desde la cual 
"deducir” —como ocurre con los sistemas de ecuaciones lineales 
y con el Algebra de Boole— los casos particulares, lo más senci- 
llo es dejarnos de discursos y entrar de lleno en los ejemplos que 
nos servirán más o menos como medio de establecer analogías, 
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¿BUCLE 
SIN 
FINAL? 


DEPURACIÓN DE 
LOS ERRORES SINTACTICOS 
FORMALES 


e 


DEPURACION DE 
LOS ERRORES LOGICOS 


1 (POR AHORA) 


Figura 1—El clásico ciclo de producción del software (simplifica- 

do) subdividido en las fases de implementación y debugging (prue- 
bas y corrección de errores). Para problemas desconocidos las dificulta- 
des mayores surgen al principio: imaginar un algoritmo es una recomen- 
dación demasiado vaga. Son necesarias intuición y experiencia. 


Empecemos por los más simples y clásicos, partiendo del que 
quizá es el más antiguo de todos: el algoritmo de Euclides. Sirve 
para hallar el MC.D. (Máximo Común Divisor) de dos números na 
lurales, es decir, enteros positivos. Sean estos X e Y, El algoritmo 
euclidiano se define de esta forma: 


paso 1 si X e Y son iguales, ha terminado: el M.C.D. es el 
valor común, 

paso 2 reste al mayor el menor, 

paso3 sustituya el mayor por el resultado anterior, 

paso4 vuelva otra vez al paso )- 


El procedimiento descrito, si se reflexiona bien, es delicioso. 
Muchos de nosotros habríamos resuelto el problema descompo- 
niendo el número en factores primos y eligiendo los comunes con 
el mínimo exponente, como nos han enseñado en el colegio. Hay 
que tener en cuenta que Euclides, al igual que Al-Khuwarizmi no 
sabía nada de ordenadores, y en cambio supo: 


0 ¡dear un proceso por aproximaciones sucesivas o, como se 
suele decir en Informática iterativo”, 

O introducir la idea que en los lenguajes de programación 
está expresada por sentencias del tipo X=X-Y (donde el 
signo = debe entenderse como "convertirse en"). 


En la figura 2 se representa el correspondiente diagrama de 
flujo; el programa en BASIC correspondiente sería: 


5 DEFINT X,Y,A,B 

10 INPUT X, YrA=X:B=Y 

20 1F A=B THEN 50 

30 IF AB THEN A=A-B:60T0 20 

30 B=B-A:50T0 20 

50 PRINT "EL M.C.D. DE "pXi" E *iy 
60 PRINT "ES IGUAL A "sAsEND 


(NOTA: en los dialectos BASIC en los que no exista la instruc- 
ción DEFINT para la definición explícita de variables enteras, se 
emi variables tipo X%, Y %, o bien nos arreglaremos con las 
reales). 

La comprobación empírica del algoritmo no es difícil. Por 
ejemplo, con la pareja X = 30; Y = 12 los sucesivos valores de A 
y B elaborados por el programa son: 
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Figura 2.—Diagrama de flujo del programa que aplica el algoritmo 
de Euclides para obtener el MC.D. 


En cuanto a la demostración, esta tiene que ver aon que el 
M.C.D. de dos números naturales A y B, con A>B, es el mismo que 
el de A-B y B. Se pueden encontrar analogías con el cálculo del 
cociente entero, resultado de dividir dos números mediante la sus- 
tracción repetida del divisor DSOR del dividendo DDO: 


5 DEFINT DSOR,DDO 

10 INFUT DSOR,DDO 

20 R=DSOR;0=0: REM O=COCTENTE: R=RESTO 

30 TF R>DDO THEN 30 

40 R=R-DD0;0=8+1:60T0 30 

30 PRINT R.0:END 

Naturalmente, la división entera la utilizamos aprovechando 

el hecho de que los ordenadores la “saben hacer”, y así las 4 úl- 
timas líneas anteriores se reducen a una sola: 
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10 O=INT(DDO/DSSR) :R=DDO-0+DS0R 


También el algoritmo de Euclides puede hacerse más rápido 
por medio de divisiones sucesivas. Este asunto, sin embargo, lo 
dejamos como ejercicio al igual que (para los más avanzados) la 
demostración de cómo funciona, añadiendo dos variables auxilia- 
res "s” y *t”, el siguiente (sub)programa. Para que haya más varie- 
dad está escrito en Pascal y sirve para calcular el m.cm. (mínimo 
común múltiplo); 


PROCEDURE mincomult (x,y: INTEGER) ; VAR 87C.0: INTEGER); 
VAR s,t: INTEGER; 

sisxpti=y; 

HHILE xy DO 

IF x2y THEN BEGÍN xs=x-yi5:=s+t END; 
ELSE BEGIN y;=y-xyt:=t+s END; 
n.c.8.3=(stt) DIV 2 (1 DIV es la division entera %); 
END; 


Los que lo intentaron podrán ahora comprobar su solución al 
problema de calcular el M.C.D. mediante divisiones enteras repe- 
tidas. Aquí está: 


10 INPUT X,Y:A=X:B=Y 

20 1F ACB THEN C=A:A=B:B=C 

30 A=A-INT(A/B) 18 

40 1F AX70 THEN 20 

50 PRINT "EL M.C.M DE "¡X;" Y "sy 
50 PRINT "ES: ";B 


Como se ve, consiste simplemente en obtener repetidamente 
el resto de la división entera entre A y B, haciendo que sustituya 
al mayor. Vea como en la línea 20 el intercambio entre A y B (a 
través de la variable de servicio C) permite que en A siempre se 
tenga el mayor de la pareja. Al final, el M.C.D. se encuentra en B, 
por ejemplo: 


A B A B 
18 3 1 
0 6 12 
12 6 
MC.D= 3 0 
MCD. =6 


Por lo tanto hemos conseguido revisar a Euclides y, al mismo 
tiempo, hemos proporcionado una variante de su célebre algo- 
ritmo. 

Antes de continuar con otros ejemplos, nos parece oportuno 
introducir una importante reflexión general (no lo llamaremos 
“principio”, pues sería demasiado enfático). 


PRIMERA REFLEXION: el desarrollo de un determinado aigo- 
nimo (y su correspondiente programa) tie ne, a menudo, un carác- 
ter e volutivo 


En otras palabras: no hay una única solución, estudiando y pro- 
bando se puede encontrar alguna variante, quizá mejor. Algunas 
veces la nueva solución favorece un determinado factor, por ejem- 
plo, la velocidad, en perjuicio de algún otro, por ejemplo, la cla- 
ridad o lo compacto del programa. Lo más importante, natural- 
mente, es que funcione. 

Para ceñirnos al tema vamos a proponer un ejercicio muy fá- 
cil: encuentre un algoritmo para escribir la tabla de los cuadrados 
de los números naturales, utilizando solamente la suma (la multi- 
plicación y la elevación a potencia están por tanto prohibidas, sino 
sería demasiado banal). La solución, por si no la encuentran, se la 
decimos nosotros: 


10 IMPAR=1:NC=1 

20 FOR N=0 TO 100 

30 PRINT N,NC 

40 INPAR=IMPAR+22NC=NC+IMPAR 


Para entender algo bastará con dar un vistazo a la tabla si- 
guiente: 


1 


Comprenderá en seguida que el programa trabaja poniendo 
al día la serie de números impares en la variable IMPAR, y aña- 
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diendo el resultado al valor anterior de NC. Así, 3+ les 4:5+4 
es 9, etc. La demostración se basa en el desarrollo del binomio de 
Newton. 


(N + 1) = N? + 2N + 1. 


relación que se lee así: el cuadrado del elemento siguiente a N, 
es decir, N+] (primer miembro), es igual al cuadrado de N más 
el número impar (2N+1), 

Para elaborar la tabla de los cuadrados y cubos, sólo con la 
suma se puede partir de la siguiente fórmula: 


(N+])? =N3+3N2+3N+1 


teniendo en cuenta que 3N= N+N+N. 
En la figura 3 se ha reproducido el diagrama de flujo del pro- 
grama BASIC que sigue: 


3 INPUT MAX: CP=2 

10 FOR NP=3 TO MAX STEP 2 

20 LIM=SOR(NP)+1 

30 TEST=3 

40 1F TEST)LIM THEN 70 

50 IF NP=INT(NP/TEST)ATEST THEN B0 
$0 TEST=TEST+2:60T0 40 

70 PRINT NP3CP=CP+1 

80 NEXT NP 

100 PRINT:PRINT "ENTRE 1 Y ";MAX;" HAY *; 
110 PRINT CP;" NUMEROS PRIMOS 


Se trata de un programa que genera e imprime los números 
primos siguientes a 1 y 2. Una vez establecido en la línea 5 el va- 
lor “MAX” al cual se quiere llegar, comienza el bucle (líneas 10-80) 
que recorre la serie de los números impares: 3, 5, 7, 9... Cada vez 
(línea 50) se realiza la prueba de divisibilidad. ¿Con qué? No con 
los números primos anteriores, sino con la serie de los números 
impares, desde 3 en adelante, serie más amplia y que comprende 
la de los números primos (todo número primo debe ser impar). 
Con este fin, de la línea 30 sale otro bucle (quién lo prefiera pue- 
de realizarlo también con FOR.. NEXT), que genera sucesivamen- 
te los números impares en la variable TEST; si la prueba de divi- 
sibilidad entre NP y TEST tiene éxito, se salta al próximo NP (í- 
nea 80), pues el actual no vale, si no, se vuelve a probar con 
TEST+2, 

Algunos pensarán que el problema parece bastante sencillo, 
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>) Figura 3.—Procedimiento para encontrar e imprimir los números pn- 
mos presentes entre 3 y MAX. El TEST de divisibilidad de cada nue- 
vo NP se hace con la serie entera de números impares desde 3. 
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ero ¿entienden la línea 20? En ella se calcula el valor de LIM, 

ajo el que se hace variar TEST, como la raíz cuadrada (por ex- 
ceso) del NP en curso. En efecto, se demuestra que es superfluo 
seguir adelante con la prueba de divisibilidad si TEST supera LIM 
(se hace un salto a la línea 70); entonces NP se proclama primo y, 
por lo tanto, se incrementa el cuenta-primos CP (hay que notar 
que al principio CP se pone para contar el] y el 2). 

El hecho de basar la prueba de divisibilidad en la raíz cua- 
drada (si 123 ha resultado indivisible por todos los impares desde 
3 a 13, es inútil continuar con 15, 17, etc), nos lleva a nuestra “pri- 
mera reflexión”; pues la primera idea serfa hacer coincidir LIM con 
NP; sin embargo, al ponerlo como en el ejemplo, mejora notable- 
mente la velocidad. 

Aunque el procedimiento precedente pueda resultar obliga- 
do, por ejemplo, en las calculadoras de bolsillo (algunas tienen el 
BASIC pero carecen de memoria, y, a veces, también de la posi- 
bilidad de vectores) no ocurre así con los ordenadores persona- 
les actuales. Veamos pues la variante que utiliza arrays (en inglés 
array quiere decir literalmente formación; se usa con el significa- 
do de "vector", tabla y similares). 


S INPUT MAX:DIM PRIMAX):PR(1)=1: 
PR(2)=2:K=3 

10 FOR NP=3 TO MAX STEP 2 

20 LIM=SQR(NP)+1 

30 1=3 

40 1F PRULDOLIM THEN 70 

50 1F NP=INT(NP/PR(I))8PR(I) THEN BO 

60 I=1+1:60T0 40 

70 PRIK)=NP:K=K+1:CP=CP+1 

B0 NEXT NP 

100 PRINT:PRINT "ENTRE 1 Y "¡MAX;" HAY”; 

110 PRINT CP;” NUMEROS PRIMOS" 


En vista de que este nuevo programa refleja muy de cerca 
el anterior, nos parece suficiente dejar la comparación como ejer- 
cicio útil y limitarnos a hacer notar que, poniendo los habituales 
l y 2 en los dos primeros puestos del array PR de los números 
primos, CP partirá desde cero, aunque también ahora se actúa cón 
los NP impares y se hace el test desde PR(3) en adelante. Pero 
no hemos terminado. Los que disfrutan pensando, seguramente ha- 
brán oído hablar de la Criba de Eratóstenes. 

En BASIC se podría expresar así: 
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5 VERDADERO=1:FALSO=0: INPUT MAX: DIM PR(MAX) 

10 FOR 1=1 TO MAX:PR(1)=VERDADERD:NEXT 1 

20 FOR X=2 TO MAX 

30 1F NOT PRIX) THEN 70 

20 FOR Y=X TO MAX STEP x 

30 PRiY+X)=FALSO 

60 NEXT Y 

70 NEXT X 

80 FOR 1=1 TO MAX:1F PR(X) THEN PRINT PR(X)sCP=CP+1:NEXT 1 
90 PRINT "HAY "¡CP3" PRIMOS HASTA "¿MAX 


El procedimiento consiste en establecer inicialmente que to- 
dos los datos de una matriz de valores booleanos de amplitud 
MAX, son "VERDADERO" después de lo cual, partiendo de 2, se 
van a situar como “FALSO” todos aquellos cuyo índice sea múlti- 
plo de cada número primo, La clave está en la línea 50: PR(Y+X) 
que proporciona (para X=2) los índices 4, 6, 8 (en el caso de X = 
3 se tratará, en cambio de 6, 9, 12, etc.) Al acabar, la matriz-criba 
estará rediicida a un colador, con valores "VERDADERO" (1) en 
los elementos primos, o sea: 


VALORES: 1, 1,1,0,1,0, 1, 0, 0, L, 0,0 0"0, 
INDICES: 1234567809. 23 24 25 26 27. 


¡Nótese que, esta vez, los números (primos o no primos) son 
los propios índices! Así, la impresión y cuenta de los primos (lí- 
nea 80) consiste en considerar sólo los índices de los elementos 
“VERDADERO”, Por último, insistir en la elegancia derivada de la 
utilización de los booleanos: IF NOT PR o IF PR son expresiones 
elegantes que IF PR =0 6 IF PR = 1 (en los dialectos BASIC en los 
a MO “true” no es 1, bastará con establecer VERDADE- 
RO =-1). | 

El problema de los números primos es una confirmación de 
nuestra Primera Reflexión, pero silo pensamos bien nos lleva tam- 
bién a la 


SEGUNDA REFLEXION: cualquier algoritmo está intimamente 
ligado a una estructura de datos (adecuada), 

Esta idea, verdaderamente fundamental, es la base, entre otras, 
del texto de Niklaus Wirth (padre del lenguaje Pascal), con el sig- 
nificativo título siguiente: 


"Algorithm + data structures = programs” 


En efecto, es evidente que en los dos últimos ejemplos, sin la 
estructura "matriz" no habríamos podido hacer nada, o hubiéramos 
tenido que arreglamos a. duras penas con más trabajo y memoria, 
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Veamos ahora otro pequeño ejemplo sobre estos conceptos. 
Aún con su banalidad tiene un valor histórico: muestra como el 
software de aplicación evoluciona tanto por perfeccionamientos 
sucesivos como por el empuje de sucesos del mundo real. En el 
ejemplo, el cambio de las leyes fiscales. La tabla de la figura 4, re- 
presenta una posible tasa progresiva del IRPF (Impuesto sobre la 
Renta de las Personas Físicas) representada por meses, para el cál- 
culo de las retenciones. Supongamos ahora que nuestro ordena- 
dor no permita tablas con índice. A primera vista parecería inevi- 
table recurrir a horribles cadenas de IF/THEN como las siguientes: 


200 1F IMP<=25000 THEN IRPF=0, 14 1MP 

210 IF 1MP>25000 AND IMP<=33333 THEN 
IRPF=2500+0. 131 (1MP-25000) 

220 1F IMP<33333 AND IMP>=41666 THEN 
IRPF=3583+0,168(IMP-33333) 

AA 31 AAA 


La poca elegancia de esta solución es indiscutible, Dicho sea 
de paso, hay que constatar que, incluso problemas tan banales, 
NO siempre encuentran solución en una fórmula, aun complicada. 
Entonces se requiere un algoritmo, un procedimiento por pasos, 
seguramente con algunas ¡teraciones. 


TRAMO 

IMPOSITIVO DE hates PORCENTAJE 
RENTA 

IMPONIBLE (BRUTO) 


NS Figura 4—Tabla de bases imponibles de una ficticia clasificación 
MES del IRPF, calculada por meses, Cuando la base imponible supera un 
tramo impositivo y entra en el siguiente se aplica el impuesto mínimo (con- 
tenido en la segunda columna) más el tanto por ciento progresivo sobre 


la diferencia. 


18 


¿No sería posible, incluso con las limitaciones señaladas, algo 
menos rudo? Si nos fijamos, observaremos que el aumento de los 
tramos impositivos de rentas sujetas a impuesto y el de los por- 
centajes presenta una cierta regularidad. En efecto, hasta 50.000 
pesetas el incremento en el tramo es de 8.333 ptas, y luego de 
12.500 ptas, En cuanto a los porcentajes, el aumento es todavía 
más regular: de 3 en 3 puntos, El truco consiste en aplicar el 10% 
del IRPF inicial (es el mínimo al que nadie escapa) al entero IM- 
Ponible y añadir un posterior 3% a la diferencia de esta cifra (IMP) 
con respecto a un término móvil PARAG. Este último, inicialmente 
igual a 258000, se aumenta cada vez en 8.333, hasta 49.999 (también 
el Fisco acepta un error de una peseta..) y, desde entonces, en 
12.500, Todo esto quedaría en Pascal: 


PROCEDURE irpf(impan:REAL;VAR tasa: REAL); 
VAR parag,incri,incr2:REAL; 
BEGIN 
tasa:=0,ifimpon; 
parao:=250003incr1:=9333;incr2:=12500; 
ÁHILE impon?=parag do 
BEGIN 
tasar=tasat0, 34 (impon-parag); 
IF parag<49999 THEN parag:=paragtincri 
ELSE parag:=parag+incr2; 
END; 
END; 


La traducción BASIC es banal: 


100 REM SUBRUTINA IRPF 

110 TASA=0. 18 1MP+PAR=25000 
120 11=8333:12=12500 

130 1F IMP<=PAR THEN 180 
140 TASA=TASA+O. 34 (IMP-PAR) 
150 V=(PARX49999) + W=NOT Y 
160 PAR=PAR+VAT1+NAT2 

170 6070 120 

180 RETURN 


Percátese de la “finura” booleana contenida en las líneas 150 
y 160. Es apropiada para los dialectos BASIC en los que el valor 
lógico "true” está representado con “1” (en los que se tiene "-1” 
será necesario sustituir, en la línea 160 los “+" por "-”. Las varia- 
bles W y Y son mutuamente exclusivas (cuando una es 0 la otra 
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es 1, y viceversa) así que cuando sea verdadera la condición (PAR 
<49.999) V=1 y W= 0 por lo cual, de hecho, sólo se añade el in- 
cremento 11 = 8333 a "PAR”. A continuación, los papeles de W y 
V se intercambian y lo que se añade a PAR es I2 = 12.500. Es un 
modo de sustituir la construcción IF/THEN/ELSE, de la que care- 
cen muchos dialectos de ordenadores personales, 

Por las apariencias el programa anterior podría parecer bien 
planteado, pero no es así. Su fragilidad queda al descubierto con 
el continuo aumento de la presión fiscal, dado que para bases im- 
ponibles más altas, la regularidad de la tabla sería una bendición. 

Es evidente que, al final, este asunto se debería resolver con 
el uso de tablas de tipo “correlacionadas”. En Pascal esto significa 
cid hay que utilizar el tipo "record", subdividido en tres campos: 

ENT, MIN y PORCENT. 

En BASIC nos arreglamos con tres matrices de igual nombre 
y para correlacionarlas (es sencillo: con el mismo índice...) tendre- 
mos que arreglárnoslas nosotros: 


100 REM SUB IRPF CON. TABLAS CORRELACIONADAS 
110 DIM RENT(20);MIN (20); PORCENT(20) 

120 FOR 1=1 TO 20 

130 READ RENT(1) ,MIN(1) ¿PORCENTCI) 

140 NEXT 

150 FOR I=1 TO 20 

160 1F INP)RENT(1) THEN NEXT 1 

170 1F 1=21 THEN PRINT "ERROR":STOP 

180 TASA=MIN(1)+CIMP (1)-MIN(I) ) 2PORCENT(1) 
190 RETURN 

200 DATA 25000,0,0.1,33333,2500,0,13 

210 DATA 41666,3583,0,16,50000,4916,0.19 
220 DATA .....ElCo..o. 


En las líneas a partir de la 200 se cargan los DATA correspon- 
dientes a las variables correlacionadas RENT, MIN y PORCENT. 
Lia primera terna, como se aprecia en seguida, está compuesta por 
ul tramo impositivo de renta RENT = 25,000, por el impuesto míni- 
mo MIN = 0 y por el tanto por uno (porcentaje ya dividido por 
100) PORCENT = 0.1. Ni estas ni las otras ternas de los DATA coin- 
elder con las líneas de la tabla incluida en la figura 3, contraria- 
mente a lo que podríamos haber esperado, ¿Por qué? Es sencillo; 
para entenderlo basta con seguir el mecanismo de la búsqueda 
on tablas, En efecto, el proceso (que, naturalmente necesita una 
malriz-llave ordenada), funciona no "por igual” sino “por menor” y, 
bn vste caso, cuando se encuentra con una situación de IMP me- 
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nor (o igual) a RENT tiene que aplicar los MIN y PORCENT que, 
en la figura 4, están en la línea precedente. Por lo tanto, merece 
la pena cambiar estas líneas tal y como se hizo en los DATA. Así, 
cuando nos encontremos IMP <2500 el IMP será O y el PORCENT 
= 0,1; cuando tengamos IMP < 33333 MIN será = 2500 y PORCENT 
= 0,13, etc, 

Una última observación. En teoría podríamos haber prescin- 
dido del vector MIN, dejando al ordenador la aburrida tarea de cal- 
cular las distintas bases mínimas, pero es más fácil proceder como 
lo hemos hecho. En cualquier caso, si decidimos que lo haga, de- 
beremos evitar que el cómputo, por ejemplo, de las 3583 ptas 
(como suma del MIN anterior, igual a 2500, más el 13% de la di- 
ferencia entre PORCENTajes contiguos, MIN = 0,13*(33333-25000) 
+ 2500 = 3583) cada vez que debamos utilizarlo, y hacerle realizar 
estos cálculos al principio y de una vez por todas. 

El ordenador NO es una máquina pensada para realizar pe- 
queños cálculos que ya podamos saber de antemano (podemos 
obtener los resultados con una calculadora en caso de que sea- 
mos tan vagos). Usarlo para esto es no sacarle partido. 

Si, por ejemplo, necesitamos en muchos lugares del progra- 
ma la raíz de 2, será conveniente calcular al principio una varia- 
ble R2 = SQR(2) o bien meter, donde sea necesaria, la constante 
14142135. 

Abandonemos aquí los problemas de cálculo. En los próxi- 
mos capítulos abordaremos temas que, esperamos, les ayudarán 
a comprender, en concreto, como hay que plantear y escribir un 
programa correctamente, 
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LABERINTOS, CLASIFICACIONES Y ESTADOS 
VARIABLES 


Ariadna, su hilo y Teseo 


e los tiempos del colegio nos llegan los recuer- 
dos de los mitos griegos, todos ellos cargados 
de resonancias metafísicas y a veces angustio- 
sas. Tampoco faltan los misterios, basta con pen- 
sar en Edipo delante de la Esfinge tratando de 
resolver su enigma, en tiempos en los que toda- 
vía no existían las revistas de crucigramas. 

En cuanto a Teseo, sabemos que debió en 
parte su éxito a su sex-appeal que le permitió 
conquistar a Ariadna. Y, ¿qué fue lo que le dio esta bella donce- 
lla? Evidentemente, un algoritmo, Haciendo notar que para su se- 
guridad, Teseo, se tendría que proveer del carrete de hilo de 
Ariadna para señalar los pasillos por donde pasara, en términos 
un tanto esquemáticos este algoritmo se puede expresar como 
sigue: 


CASE nudo OF 
"Minotauro”. ASESINA-MONSTRUO 
"Ciclo" REBOBINA-HILO 
"Virgen" DESENROLLA-HILO 
“Ariadna” STOP 
“Otro” REBOBINA-HILO 

END 


Todo esto está escrito en un Pascal de “andar por casa”. Se 
enumeran las condiciones que se pueden dar en el nudo (o habi- 
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lación del laberinto de la que salen dos o más pasillos) y, junto a 
cada una de ellas, la acción a cumplir. El significado de estas con- 
diciones es: : 


O Minotauro” enla habitación está el monstruo 


O “Ciclo” el hilo de Ariadna se encuentra en un pasi- 
llo; 

O Virgen” ningún pasillo ha sido recorrido (excepto 
aquel de donde se viene). 

O “Ariadna” en el nuevo nudo, está la doncella, o bien es- 
tamos otra vez en la entrada. 

O "Otro" ninguna de las condiciones anteriores. 


No es difícil demostrar (y, a posteriori, resultaría algo intuiti- 
vo) que el algoritmo funciona; incluso en el caso de que el mons- 
lruo sea inaccesible (bien porque esté encerrado en una habita- 
ción, bien porque haya sido asesinado por otros) e implica ade- 
más, la vuelta del héroe. Para nuestros lectores y utilizando térmi- 
nos informáticos, debemos mencionar que esta recuperación del 
MO, recorriendo sus propios pasos, se llama "backtraking", se de- 
sorrolla mediante una estructura de datos denominada pila (stack) 
en la cual se acumulan los datos para posteriormente extraerlos 
lino a uno, comenzado por el último introducido. 

Esto podría sugerir a los más adelantados la realización de un 
pequeño programa que simule el juego del laberinto. Sin embar- 
go, nosotros aprovechamos la ocasión para expresar la 


"ERCERA REFLEXION cualquier programa refleja una situa 
olón de estados variables. 

También se podría decir que el programa es una máquina de 
estados variables. Aquí resulta obligado citar la célebre Máquina 
de Turing, ordenador idealizado (como la Máquina de Carnot en 
Termodinámica). A cada paso sucesivo de elaboración el ordena: 
dor asume una determinada.configuración o "estado"; las variables 
que están en la memoria tornan entonces, sucesivamente, valores 
(ue, a su vez (por ejemplo, con la presencia de instrucciones con- 
dicionadas del tipo IF, CASE, ON... GOSUB, etc.), determinan el es 
lacto Iuturo, En todo este proceso el software es un poco el motor 
inalterable (por lo menos mientras se excluya el caso, novísimo 
de los programas que se automodifican) y la secuencia de ins- 
Irncciones determina, a priori, el movimiento total. En la práctica, 
eslo significa que al programar hay que desarrollar dos tareas: 


0 comprender cómo se tiene que mover la máquina de es- 
tados variables; 
O prever en el programa las reglas adecuadas. 
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O sea, programar significa prever, o mejor, escribir, lo que 
debe hacerse bajo todos los puntos de vista, sin olvidar que el or- 
denador es una máquina secuencial, es decir, que ejecuta las ins- 
trucciones de una en una. La historia de Teseo y Ariadna es sig- 
nificativa respecto a esto. 

Para concretar de forma sencilla el concepto, examinemos 
ahora un laberinto simplificado como el de la figura 1. El objetivo 
es el siguiente: se trata de realizar un juego del tipo "aventuras", 
en el que el usuario tiene que llegar a la habitación del tesoro (TT) 
y volver a la entrada, Esta vez, por lo tanto, la tarea de no perder- 
se (¡y sin el hilo de Ariadna!) es responsabilidad del hombre, mien- 
tras que el ordenador se limita a hacer de notario. La máquina de 
estados variables que hemos utilizado puede representarse con 
el grafo de la figura 2. 

¿Qué es.un grafo? se preguntarán algunos de ustedes. Antes 
de contestar queremos precisar que cada habitación puede tener 
hasta 4 puertas, tantas cuantos puntos cardinales, y que algunos 
accesos pueden estar cerrados o tapiados. Dicho lo cual podemos 
aclarar que un grafo representa, con un círculo pequeño (nudo) 
cada estado del sistema, los “arcos” orientados, cada uno señala- 


MY Les 1,—El sencillo juego del laberinto, Para mayor sencillez las . 
puertas sólo tienen 4 orientaciones; admite la posibilidad de volver 
a entrar por una dirección distinta a la usada cuando salimos, a causa de 
la tortuosidad de los pasillos. 
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Figura 2.—Grafo que representa la máquina de estados variables del 

laberinto. Cada nudo es una habitación, cada arco (transición) co- 
rresponde a un pasillo. Las parejas encerradas por trazos indican la posi- 
bilidad de volver a entrar en un sentido cualquiera, 


do con la clave de la acción asignada, expresan las posibles "tran- 
siciones” de un estado a otro. Así, en la figura citada, cada nudo 
representa una habitación, mientras que las cuatro flechas que sa- 
len de allí representan los pasillos y corresponden a las respec- 
tivas elecciones hechas por el usuario (terminan en la habitación 
a la que da paso el respectivo pasillo). Cuando el pasaje está ce- 
rrado, la flecha vuelve al mismo nudo, evidenciando que el esta- 
do no ha cambiado. Nótese también, comparando las figuras 1 y 
2, que la flecha de vuelta no siempre tiene el sentido opuesto al 
de ida, desde el punto de vista de la rosa de los vientos; por ejem- 
plo, de A se va a C desde el oeste pero desde C se vuelve a A 
por el sur. Esto depende de la tortuosidad de algunos pasillos, y 
debería de aumentar la desorientación según los planes del dia- 
bólico arquitecto Dédalo, 

En este ejemplo la correspondencia entre nudos-estados y 
arcos-pasillos es estrechísima, pero en otros puede ser más abs- 
tracta; por ejemplo, pueden hacer corresponder a un nudo el es- 
tado de una centralita automática de telecomunicaciones y, a un 
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arco, la llegada de una señal particular, conforme a un cierto “pro- 
tocolo” de comunicación que hará reaccionar a la parar de una 
forma determinada. Ciñéndonos al tema de los juegos, en los de 
lipo estratégico cada nudo hace evidente estados en los que se 
dan cosas (como la cantidad de dinero, la felicidad, las naves es- 
paciales) poseídas por cada jugador, el número de bienes o pla- 
netas conquistados, etc, mientras las elecciones (flechas orienta- 
das), están ligadas a las acciones decididas (como el envío de na- 
ves a otros planetas, la compra de acciones de Telefónica o simi- 
lares, etc.). Se puede complicar el juego a voluntad, pero el con- 
cepto es, en esencia, idéntico. 


Ordenación por “burbuja” 


Vamos ahora a dejar un tiempo de reflexión para que los lec- 
tores piensen sobre lo anteriormente expuesto. Solo comentare- 
mos antes, para los más inquietos e impacientes, que un grafo del 
tipo que hemos visto es equivalente a un corrientísimo diagrama 
de flujo y que, en general, cada flecha orientada puede ser susti- 
tuida por un IF THEN.. (por lo menos en teoría: anticipamos que 
hay una solución más elegante, pero no diremos más). 

En esta especie de intervalo nos ejercitaremos en el tema de 
la Primera Reflexión, relacionada con el carácter evolutivo del soft- 
ware. Tomemos pues el diagrama de flujo de la figura 3, referente 
a la clásica ordenación por el "método de la burbuja” (en inglés 
“bubble sort”) aplicada a una matriz de números A. El método se 
denomina así porque las translaciones que sulren los datos re- 
cuerdan el movimiento ascendente de las burbujas en líquido, El 
programa correspondiente en BASIC sería como sigue: 


5 INPUT N:REM El usuario especifica el nusero de elenentos 
10 DIM AIN) 

20 FOR 1=1 TON 

30 ALD=INTIRND(1)11000+1):PRINT AI)" ”; 
40 NEXT 1 

50 FOR I=1 TO N-1 

50 IF A(ID<=A(I+1) THEN 80 

70 C= AIDSA(D=A(1+1):A(I+1)=C:W=1 

80 NEXT I 

90 IF H THEN W=0:50T0 50 

100 PRINT:PRINT 

110 FOR I=1 TO N:PRINT A(I)5* "5 NEXT I 
120 END 
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Figura 3.—Diagrama de la clásica “ordenación por burbujas" (Bub- 
ble Sort). 


Las líneas 30 y 110 imprimen los números de la lista (genera- 
dos al azar en el campo de los enteros desde 1 hasta 1000) antes 
y después de la operación. El ordenamiento (o "reordenamiento") 
con el algoritmo de las burbujas consiste, como quizá alguien ya 
sepa, en examinar de dos en dos los elementos contiguos, de ín- 
dice le I + 1. Si están descolocados (aquí la hipótesis es que se 
desea un orden ascendente) se les cambia usando una variable 
auxiliar C y además se activa una variable booleana W (tenga pre- 
vente que en algunos de los dialectos de BASIC el valor lógico 

"verdadero" corresponde a -l, en vez de a 1). Todo esto está en 
la línea 70, Al acabar el ciclo FOR/NEXT se chequea W y si está 
on "on" se vuelve a empezar el ciclo para dar otra pasada de po- 
nibles cambios. Si, en cambio, W es O quiere decir que cada ele- 
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mento estaba seguido por otro de un valor mayor, por lo que todo 
está correcto y el ordenamiento cesa. 

Para estudiar otras variantes y, razonando, poder llegar a so- 
luciones alternativas, posiblemente mejores, proponemos aquí dos 
ejercicios. Para que sirva de “calentamiento” empezaremos con 
una pregunta muy sencilla: ¿es el desviador W verdaderamente 
indispensable? Respuesta: en absoluto. En la línea 70 es suficiente 
sustituir W = 1 por un simple GOTO 80 (y, naturalmente, eliminar 
la línea 90, que ahora resulta inútil). Esto equivale, sin embargo, a 
tener que empezar desde el principio cada vez que se hace un 
intercambio, de forma que, cuando se sale del NEXT, todo esté en 
su sitio, 

'He aquí los dos ejercicios mencionados: 


1. realice el programa usando dos índices distintos (1 y J), ha- 
ciendo rotar más rápidamente el segundo que el primero 
(por lo tanto, dos ciclos FOR/NEXT anidados uno en el otro) 
y comparando sistemáticamente A(I) con A(]) para inter- 
cambiarlos si el primero es mayor, 

2. comparando siempre elementos adyacentes, pero, cuando 
se encuentre una pareja fuera de sitio, realice una serie de 
intercambios hacia atrás, hasta llegar a una pareja bien co- 
locada, volviendo entonces a barrer hacia delante “desde 
el punto en que nos habíamos quedado", 


Lo importante es verificar si, con estas variantes, se consigue 
ganar algo de velocidad. En efecto, el ordenamiento de burbuja 
se vuelve muy lento al aumentar el número de elementos, Para 
ser más exactos, se demuestra que la media de tiempo de un or- 
denamiento de este tipo crece con el cuadrado de la dimensión 
(o potencia") del conjunto, por lo que doblándolo se producen 
tiempos cuádruples. 

La primera sugerencia que les damos es la de intentar apli- 
car, de alguna forma, el principio del divide y vencerás. La receta 
es sencilla: 


1) se hace la clasificación de dos mitades en matrices distin- 
tas; : 
2) se realiza la fusión de las dos semimatrices reordenadas. 


Este proceso está ilustrado en la figura 4. En a)se representa 
la subdivisión elegida (entre elementos de lugar par e impar). En 
b) se representa la situacion después de los reordenamientos par- 
ciales (de burbuja) sobre los números originales (como en a). Nó-* 
tese también que, siendo en este caso la potencia igual a 9, se ha 
añadido un décimo elemento de valor HV. Sirve para cuadrar las 
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ÍNDICES > (10) (10) (12) 


Elementos pares 


Elementos dispares 


Pares 


Impares 


Figura 4. —Situación de la matriz que debe reordenarse, antes a) y 

después b) de la semi-ordenación de los elementos con puestos pa- 
res e impares. Nótese el “tapón” HV añadido en el décimo lugar para cua- 
drar el número de elementos. 


cuentas, haciendo así que la semimatriz par tenga cinco elemen- 
tos, al igual que la impar. Pero, ¿qué significa HV? Viene del in- 
glés "High Value” (valor alto); se utiliza como "tapón" al final de 
un conjunto (o file) y tiene que asumir un valor mayor que el más 
alto posible del conjunto. En nuestro pequeño ejemplo se utilizan 
valores de 1 a 1000, por lo que bastará poner HV = 9999, mientras 
que en el caso de datos alfabéticos será suficiente con HV$="ZZ" 
(mejor aún, el mayor número de “Z” posibles) para estar tranqui- 
los, En el caso de una clasificación decreciente se hablará de los 
correspondientes LV (Low Values) por ejemplo -999..9). Pero de- 
jemos hablar al listado: 


5 HY=9999 

10 INPUT N:DIM ALN+S),B(N+1) : 

20 FOR 1=1 TO N:A(I)=INTIRND(1)41000+1)>NEXT 1 
30 IF INTIN/2)42<N THEN N=N+1: A (N) =HY 

40 A(N+1)=HV; 4 (N+2)=HY 

d0 GOTO 120;REM Salta a la rutina 50, 

de clasificacion de burbuja 

60 FOR I=X TQ Y-1 STEP 2 

70 IF A(I)<=A(1-1) THEN 90 

80 C=A(D):A(1)=0 (1-1): H=1 
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90 NEXT 1 

100 1F Y THEN W=0:G0TO 40 

110 RETURN 

120 REM Reordenacion de los elementos pares 
130 X=2:Y=N:605UB 60 

140 REM Reordenación de los inpares 

150 X=1:Y=N-1:505UB 60 - 

160 ... (Sigue mas adelante)... 


En la línea 30 se hace un test de paridad: si, por ejemplo, N = 
9 la INT (N/2)*2 nos da 8<9 por lo que se añadirá un elemento 
de valor HV=9999, En cuanto a la clasificación por burbuja, está 
descrita bajo la forma de una subrutina “paramétrica” (desde la lí- 
nea 60 a la 110). Los parámetros son las variables "X” e "Y” (valo- 
res iniciales y finales de la submatriz); aparte del STEP 2 (que es 
obvio, ya que se tiene que trabajar con los pares o con los impa- 
res) todo continúa como hemos visto. Es en las líneas 130 y 150 
donde los ya citados parámetros se fijan para que la subrutina de 
la línea 60 haga su trabajo de reordenación de los elementos pa- 
res e impares; haciendo esto, hemos logrado escribir las instruc- 
ciones adecuadas una sola vez. Una vez llegados a este punto de- 
bemos realizar la fusión de las dos semi-matrices en una única ma- 
triz B. Hela aquí: 


160 REM Fusion (MERGE) 

170 X=1:Y=2 

180 FOR 2=1 TON 

190 IF AQOSAIY) THEN B(Z2)=A(X):1=X+2:607D 210 
200 BIZ) =A LV): Y=Ye2 

210 NEXT 2 

220 FOR I=1 TO N3PRINT B(I)p" "eNEXT 1 

230 END 


La fusión resulta banal. Presupone dos archivos de partida 
(barridos con distintos índices "X" e “Y”) ordenados ambos del mis- 
mo modo; procede siempre con ordenación ascendente, usando 
la matriz que tiene el elemento menor e incrementando el índice 
de éste, En cuanto a los "tapones" (otros los llaman "centinelas”), 
sirven para mantener el sentido de la comparación entre elemen- 
tos A(x) y A(y), hasta el final. De esta manera, al alcanzar el ele- 
mento valor 9999 en una semi-matríz, el programa completará au- 
tomáticamente la carga de los elementos residuales de la otra, to- 
dos inferiores a 9999. Si no hubiésemos adoptado el criterio de los 
tapones, la casuística se habría complicado bastante; basta exami- 
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nar la figura 5 para creerlo; en a) y en b) se han representado los 
flujos de la fusión con y sin “tapones”. La figura demuestra que 
—aunque hay gustos para todo— quienes prefieran evitar solu- 
ciones demasiado complicadas, también podrían seguir adelante. 

Hablando de gustos, es muy probable que aquí alguien pre- 
gunte: ¿qué necesidad había de subdividir los elementos en pa- 
res e impares? ¿no era más sencillo coger simplemente la prime- 
ra y la segunda mitad? Efectivamente, pero haciendo esto el tru- 
co de los tapones no se hubiera podido pliacar, a menos que nos 
deslicemos un lugar a la izquierda a la mitad de la formación: ¡me- 
nudo adelanto para quien persiga fines de velocidad! 

Después de experimentar la reducción de tiempos consegui- 
da con este método (a pesar del añadido de la fusión, con una do- 
cena de elementos ya se nota que es un proceso cuya ejecución 
depende linealmente del número de elementos en juego) recor- 
daremos fugazmente que la clasificación, junto a la fusión y al 
"search” (búsqueda de un elemento determinado), constituye uno 
de los capítulos más densos de la informática. Subrayemos dos 
cuestiones que de aquí se deducen: 


0 el carácter evolutivo del software y de los algoritmos; 
O la importancia de una estructura de datos adecuada. 


Es decir, es una repetición de las que hemos llamado Primera 
y Segunda Reflexión, 

En relación con la primera animamos a los más adelantados 
a afianzarse en la creación de otros algoritmos derivables, por así 
“decirlo, de los primeros, 


Otros dos tipos de ordenación 


Para completar el tema mínimamente es obligada la alusión 
a otros dos tipos de ordenación "clásicos": la clasificación por mí 
nimos y la clasificación rápida. El primero se parece a la “burbuja” 
pero es un poco más rápido;consiste en barrer al primer giro lodo 
el conjunto, encontrando el mínimo, que será puesto en el prime! 
lugar, Después se repite el pracedimiento con los N-l, N-2..2, ele 
mentos sucesivamente residuales 

En cuanto a la ciasificación rápida, debe su nombre al estu- 
por de su inventor Hoare, ante su velocidad, El procedimiento "P" 
consta de los siquientes pasos: 


0 encontrar el elemento del centro de la matriz: sea X su va- 
lor; 
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INV) Figura 5.—Fusión de dos matrices. La primera solución (a) se reali- 
LUMY za mediante la adopción de los tapones HV, y es más sencilla que 


la otra (b) en la que se tienen que tener en cuenta las distintas posibilida- 
des de un final parcial para cada matriz. 
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0 buscar desde el primer elemento en adelante un elemento 
mayor que X; 

9 buscar desde el último elemento hacia atrás, un elemento 
menor que X; 

0 cambiar de sitio los dos elementos encontrados; 

0 continuar hasta que (de derecha o izquierda) se llegue al 
elemento central. 


La verdadera clasificación rápida consiste en la aplicación rei- 
terada de P en la matriz entera, después en sus dos mitades, en 
las varias mitades de la mitad y así sucesivamente, hasta llegar a 
porciones de tan solo dos elementos. ¿Complicado? Bueno, es por 
ello que aconsejamos algún texto especializado para profundizar 
en ella, mientras que, para ejercitarnos, nos limitaremos a la clasi- 
ficación de los mínimos, que es más fácil, De todas formas, los que 
sepan profundizar en la materia, se darán cuenta que, siendo tes- 
tarudos, con las matrices se puede llegar lejos pero hasta un cier- 
to punto; sólo pensando en nuevas estructuras se puede intentar 
optimizar otras funciones, entre las cuales está la puesta a día o 
la cancelación de un elemento, o la suma de uno nuevo en el lu- 
gar adecuado, Ponemos aquí un ejemplo (figura 6) aludiendo a la 
estructura de árbol binario. En ella cada “nudo” contiene un dato 
y es “padre” de un nudo izquierdo menor y de un nudo derecho 
mayor, El parentesco está fijado por los punteros correspondien- 
tes, que son campos de cada nudo que indican la colocacón de 
los hijos derecho e izquierdo. Esta estructura hace particularmen- 
te fácil la puesta al día. Por ejemplo, al añadir un dato, no hace fal- 
ta, como con las matrices, reordenar toda la formación, perdiendo 
así un montón de tiempo; basta “visitar” el árbol para saber dónde 
hay que colgar el nuevo hijo; en la figura 6b) se muestra, con lí- 
nea de trazos, la visita que hay que hacer para colocar un nuevo 
dato (13) que hay que añadir al árbol de a). 


Volviendo al laberinto 


Pero bajemos de los árboles y de los frutos que se podían co- 
ger de sus frondosas e intrincadas ramas. Habrán notado que, en 
los ejemplos del "entreacto”, no hemos traído a colación la Terce- 
ra Reflexión, la de la máquina de estados variables, En realidad sí 
apareció, pero sobrentendida, intrínseca a la naturaleza misma de 
cada algoritmo. En cambio, en problemas como el del laberinto, 
la idea de la máquina de estados variables, más que útil es indis- 
pensable. Aquí nos proponemos mezclar adecuadamente la Ter- 
cera Reflexión con la Segunda, 
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a) b) 


Figura 6.—Estructura de datos general en un árbol binario. Los ele- 
J mentos mayores y menores son los “hijos” derecho e lzquierdo de 
cada nudo (utilizando punteros). En b) se observa "la visita” que hay que 
realizar para encontrar la colocación de un nuevo dato (13). 


Dado que ya hemos dibujado el grafo con los estados y sus 
posibles transiciones, la pregunta que debemos hacernos es: ¿qué 
estructura de datos puede ser más conveniente para describir 
nuestra máquina de estados variables y su desarrollo? Los apre- 
surados y los principiantes probablemente lo resolverían así (ex- 
presándolo en pseudo-Pascal): 


(Crono nus 


IF habitacion-A AND resp:="N” THEN 
habitacion-B 

ELSE IF habitacion-Á AND resp=?S” THEN 
WRITE ("no hay camino”) 


ELSE IF habitacion-B AND resp="N” THEN 
habitacion-D 


maneras 
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Los más refinados quizá adoptarían una construcción CASE, 
más elegante, pero sería igualmente una chapuza, aunque funcio- 
nase, al menos por dos buenos motivos: 


0 en cuanto el laberinto se vuelve un poco complicado la 
longitud y legibilidad del conjunto se van al garete; 

O algo todavía más trágico: si el demonio nos hace añadir 
una sola habitación más, nos arriesgamos a tener que es- 
cribir todo desde el principio otra vez, 


Am. 

En definitiva: es necesaria una verdadera estructura de datos. 
La que proponemos está ilustrada en la figura 7, donde, por co- 
modidad, hemos vuelto a dibujar nuestro grafo, El meollo de la 
cuestión es la tabla de dos dimensiones (o “matriz”, como normal- 
mente se la llama) denominada UNI (por UNlones), cuyas filas re- 
presentan las diferentes habitaciones, mientras que las columnas 
están asociadas a los 4 puntos cardinales. Por ejemplo, en la in- 
tersección de la línea 3 con la columna 2 se encuentra el valor 
UNI (3,2) = 2, que indica que si nos encontramos en la habitación 
3 (la B del grafo) y elegimos la puerta situada al Sur llegaremos 
a la habitación 2 (la A del grafo). Al paciente lector le será fácil 
encontrar todas las otras correspondencias, evidentes en las di- 
versas casillas. En esencia estas contienen “punteros”, obviamen- 
te, un puntero O corresponde a las flechas del grafo cerradas so- 
bre sí mismas (puertas tapiadas). En cuanto a los vectores alfanu- 
méricos ST$ y DIR$ sirven, el primero para asociar las direccio- 
nes 1,2, 3 y 4 en el orden: N, S, E y O, (aunque también se podrían 
prever los nombres enteros) y, el segundo, para asignar un nom- 
bre de fantasía —"ENTRADA”, "CUADRA”, “SALA TESORO”, etc.— 
a los diferentes ambientes del minilaberinto, 

No nos queda ahora más que volver a formular el problema: 
redactar un programa que, tomando las elecciones del usuario (N, 
S, E y O) le señale, cada vez, los trazos (pasillos) Tl recorridos a 
la ida y los TV recorridos a la vuelta de la habitación del Tesoro 
(T), partiendo de la habitación de entrada (E). 

Damos por descontado que lo intentarán ustedes, Todo resul- 
ta más sencillo una vez que se ha definido la máquina de estados 
variables y la estructura de datos. No autorizamos a los más pe- 
rezosos a que miren la solución que estamos a punto de dar, sin 
intentarlo antes al menos. 


1 REM DATAS Y ASIGNACIONES INICIALES 
10 DATA 0,2,0,0,3,0,1,4,5,2,4,0 
20 DATA 0,2,5,3,0,3,4,6,0,0,5,0 
30 DATA "LA ENTRADA", "EL SALON", "LA CUADRA" 
40 DATA "LA COCINA”, "LA ANTESALA", "LA SALA DE TESORO" 
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La sala 
del tesoro 


ms 


LEE (3,2) =2 


ay sw 7.—La estructura de datos, adecuadamente organizada, refle- 
ja la máquina de estados variables del laberinto, haciendo además 
más limpio y general el programa. 
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50 DATA *N","9","E",.*D” 
100 DIM UNT(6,4),5T$(6),DIR$(4) 
110 FOR H=1 TO 6 
120 FOR K=1 TD 4:READ UNI(H,K):NEXT K 
130 NEXT H 
140 FOR I=1 TD 6:READ STS(1):NEXT 1 
150 FOR I=1 TO 4+READ DIRS(T)SNEXT 1 
150 REM 
200 REN INICIALIZIACIONES DIVERSAS 
210 SW=0:H=1:T1=0;TV=0:HF=6 
220 CLS:PRINT "ESTAS EN";¡ST$(H) 
225 REM 
230 REM EXAMEN DE CONDICIONES-LIMITE 
240 1F SW=1 AND H=4 THEN GOSUB 3000; 
GOTO 240:REM FINAL 
250 6070 290:REM CASO NORMAL 
260 INPUT “¿QUIERES INTENTAR DTRA EXPLORACION? "yRs 
270 1F LEFTS(R$,1)="5" OR LEFTS(R$,1)="s" THEN 200 
280 END 
290 IF H=HF TREN GOSUR 2400: 
REM ¡TESORO ALCANZADO! 
293 REM ELECCION DEL USUARIO 
300 REM 
310 INPUT "¿A DONDE QUIERES DIRIGIRTE? (N,5,E,0) "¡R$ 
320 FOR K=1 TO 4 
320 TF LEFTS(R$,1)=DIR$(K) THEN 3602 
REM ENCONTRADA COLUMNA 
330 NEXT K 
350 5070 300:REM SINTAXIS ERRONEA,REPITE INPUT 
360 IF SK=0 THEN TI=T1+1 
370 1F 5N=1 THEN TV=TV+1 
380 1F UNT(H,K)<)0 THEN 410 
390 PRINT "ND SE PUEDE IR HACIA El ";R$ 
400 FOR R=1 TO 2000:NEXT R:GOTO 220: 
REM PAUSA Y AL PRINCIPIO 
410 H=UNI(H,K):GOTD 220;REM RETOMA EL CICLO 
420 REN INICIO SUBRUTINAS 
1970 REM TESORO CONSEGUIDO 
2000 SW=1:<PRINTsPRINT "¡ ¡EL TESORO ES TUYD!!" 
2010 REM OTRAS INSTRUCCIONES AD LIBITUN 
1980 RETURN 


2990 REM FINAL 

3000 CLS:PRINT "FIN DEL JUEGO" 

3010 PRINT:PRINT "HAS RECORRIDO ";TIz" PASILLOS *; 
3020 PRINT "A LA IDA Y "TV" A LA VUELTA” 

3030 REM OTRAS INSTRUCCIONES AD LIBITUM 

4000 RETURN 


Más corto de lo esperado ¿verdad? El mérito de que sea tan 
compacto viene dado seguramente por la extrema sencillez de la 
micro-aventura. Incluso hay que admitir que al programa le faltan 
algunas "cartas” para constituir verdaderamente el esqueleto de 
un juego de "aventuras” más desarrollado: sería necesario añadir 
cosas como un interface más cuidado con el usuario y, además, 
hacerlo más interesante en determinados aspectos (por ejemplo, 
situaciones de peligro, enigmas y similares) no todos fácilmente 
reconvertibles a estructuras de datos del tipo de los que apare- 
cen en la figura anterior (aunque.. ¿quién sabe?). Por otro lado, 
este problema se refiere, realmente, a los límites de la ingeniería 
del Software, sobre todo en su eterna búsqueda de la llamada "re- 
utilidad” de los programas. La práctica demuestra, además, que 
casi en el 70% de los casos en los que hay que hacer frente a un 
problema nuevo, aunque sea parecido a los precedentes, es ne- 
cesario volver a escribir de nuevo gran parte del programa. 

Aún así, la solución propuesta permite añadir habitaciones y 
hacer variaciones, a voluntad, de las uniones recíprocas: es sufi- 
ciente con modificar adecuadamente los DATA y las líneas inicia- 
les, en las que se cargan los parámetros en las distintas matrices. 
Y sobre todo, se han proporcionado algunas ideas que podrán ser 
reutilizadas, oportunamente cambiadas, en contextos parecidos, o 
incluso, a primera vista distintos. En suma, el saber no ocupa lu- 
gar, y esto también se aplica al moderno Arte de la Programación. 

En cuanto a la explicación del programa nos limitaremos a lo 
esencial para no ofender a la mayoría de ustedes, que se supone 
conocen el BASIC (y si no, basta que acudan a los volúmenes 5, 
6 y 7 de la BBI), Será suficiente seguir paso a paso las instruccio- 
A para comprender lo que va sucediendo. La línea “clave” es la 
410: 


410 H = UNI(HK): GOTO 220 


El índice H, correspondiente a la línea de la matriz UNI, cons- 
tituye, en la práctica, el estado de nuestra máquina de estados va- 
riables; con la instrucción ya vista, se extrae de UNI el nuevo va- 
lor (la nueva habitación), a la que nos lleva la dirección (colum- 
na) elegida por el usuario, En cuanto al índice K de esta columna, 
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determinado según la respuesta R$ dada en la línea 310 en tér- 
minos alfanuméricos (N, S, E y O, o bien Norte, Sur, Este, Oeste, 
ps sólo cuenta la primera letra extraída con LEFTKR$1) en la 
Ínea 330), se establece numéricamente desde las líneas 320 hasta 
la 340, La búsqueda falla (no hemos contestado con un punto car- 
dinal) si el ciclo FOR..NEXT es completado, mientras que tiene éxi- 
lo si se interrumpe anticipadamente, lo que significa que el pri- 
mer carácter de R$ es uno de los que están contenidos en el pe- 
queño vector DIR$ (N, S, E y O). 

Terminamos con estas pequeñas anotaciones: CLS, comando 
de limpieza de pantalla, puede sustituirse por el equivalente en 
otros BASIC (por ejemplo HOME, en el de Apple). El bucle de re- 
lardo, realizado con un bucle "ocioso” en la línea 400, sirve para 
mantener el tiempo necesario la frase "NO SE PUEDE IR HACIA 
EL”; R$ La variable HF, inicialmente igual a 6, determina, sobre la 
condición H = HF, la llegada al tesoro; en el caso de una amplia- 
ción del juego, admite la posibilidad de variar su valor, para ajus- 
tarlo al del nuevo juego, únicamente al principio (línea 210). Las 
REM de las líneas 2010 y 3030 sirven para recordar que las res- 
pectivas subrutinas pueden ser cambiadas a voluntad (por ejerm- 
plo, para añadir gráficos y/o sonoros). Al jugar con el programa 
alguno de ustedes notará que, si vuelve a entrar por segunda vez 
en la habitación del tesoro, se repite el mensaje "El TESORO ES 
TUYO”, que puede resultar trágico para quien quizá, se esté mu- 
riendo de hambre intentando encontrar la salida. A quienes no les 
guste esto, podrán remediarlo sin mucha dificultad, * 

Por último, la variable booleana SW, que se activa cuando se 
alcanza el tesoro (línea 2000), permite determinar cómodamente 
en la línea 240 el final del juego:.éste termina cuando nos encon- 
tremos en la habiación 1 con SW = 1, condiciones que testimonian 
el final de la pesadilla. 
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LOS JUEGOS CON ESTRATEGIAS GANADORAS 


La selva informática de los juegos 


a informática revela un insospechado parentes- 
co con la botánica, aunque sólo sea porque el 
objeto que encontramos con mayor frecuencia 
es el árbol, muchas veces puesto al revés con 
la copa hacia abajo y las raíces hacia arriba. Ya 
hemos hablado fugazmente de los datos. Ahora, 
después de haber sugerido qué estructuras es- 
tán a la orden del día en los sistemas operativos 
Es (por ejemplo en el célebre sistema operativo 
Unix, la estructura de los archivos es arborescente) pasaremos a 
tratar otra importante utilización de los árboles: aquella en juego... 

en la Teoría de los Juegos y ¡nada más y nada menos! en la nueva 
y fascinante disciplina de la Inteligencia Artificial. Entre los jue- 
gos más sencillos que toman en consideración esta teoría, están 
aquellos en los que dos jugadores se alternan en los movimien- 
tos, siguiendo las reglas que definen su propia licitud y las situa- 
ciones de victoria, derrota y empate. 

Ahora bien, se puede demostrar fácilmente que en muchos 
de estos juegos, a los que podemos llamar mecánicos, también po- 
demos contradecir al sentido común, pues uno de los dos juga- 
dores está predestinado a ganar o, por lo menos, a obtener una 
igualada (en aquellos que admitan un empate). Efectivamente, 
solo si se equivoca, ignorando la "estrategia vencedora” que está 
a su alcance, permite al contrario disponer a su vez de otra estra- 
tegia vencedora, Las damas, el ajedrez, el tres en raya y otros mu- 
chos pertenecen a esta categoría, y solamente la astronómica can- 
tidad de combinaciones en juego en los dos primeros impiden co- 
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nocer para ellos una sola estrategia matemáticamente ganadora; 
ni siquiera se sabe si tal estrategia es privilegio del que empieza 
o del que juega en segundo lugar. 


Un juego con estrategia vencedora: el Nim o Marienbad 


Para entender mejor este capítulo, pondremos un ejemplo clá- 
sico que será objeto de un programa bastante instructivo e inclu- 
so, creemos, original. 

El juego del Nim es un juego matemático suficientemente sen- 
cillo como para que se pueda delinear una estrategia ganadora. 
Hay quien lo llama "Marienbad” (en realidad Nim y Manrienbad son 
el mismo juego, pero con reglas opuestas). Para simplificar no ha- 
remos ninguna distinción entre los dos, El juego en cuestión era 
un motivo repetido a menudo en la película del director francés 
Alain Resnais "L'lannée derniére á Marienbad” (El año pasado en 
Marienbad), una película misteriosa de la Nouvelle Vague, En ella 
el protagonista, G. Albertazzi, perdía sistemáticamente en este jue- 
go de cerillas —en los ricos salones de la estación termal— con 
el marido de su amante. ¿Desafortunado en el juego, afortunado 
en amores? ¡Qué va! La cuestión era simplemente, que el enigrmá- 
tico y poco fascinante adversario, conocía la clave de la estrate- 
gia ganadora del Nim, la misma que nos permitirá programar el 
ordenador de manera que la máquina venza inexorablemente (y 
sin la consolación de contrapartidas eróticas). 

El Marienbad consiste en varias filas de objetos (palillos, ce- 
rillas, botones, etc.). En la figura 1 vemos, a la derecha, la configu- 
ración que se adopta habitualmente, mientras que a la izquierda 
está la que utilizamos en nuestro programa. Como veremos des- 

ués, hay infinitas combinaciones posibles y el mismo número de 
juegos, ganados unos por quien empieza y otros por quien mue- 
ve en segundo lugar, 

Las reglas son muy simples: los jugadores se alternan en las 
jugadas y, en cada una, pueden coger desde una hasta todas las 
cerillas de una misma fila. Pierde quien tiene que coger la última, 

Examinemos un Marienbad muy simple (figura 2-a) y llamé- 
moslo 3-2-1, por el número de piezas de sus filas, El árbol del jue- 
go está desentrañado en la misma figura, en b. Está claro que se 
trata de un árbol ramificado: la raíz constituye la configuración ini- 
cial y las ramas las sucesivas jugadas, cada una de las cuales con- 
duce a la nueva configuración. El árbol es un grafo particular de 
la máquina de estados variables del juego, En realidad, por moti- 
vos de espacio y de simplicidad, no hemos representado gran par- 
le de las jugadas evidentemente perdedores para el segundo ju- 
gador, Con lás notas n/m, escritas al lado de los diferentes arcos, 
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I Figura 1.—Dos configuraciones del Nim o Marienbad. A la izquierda 
la usada en nuestro programa, a la derecha la que se utiliza normal- 
mente para jugar, Las combinaciones posibles son infinitas. 


se ha indicado la elección de tomar n objetos de la fila m, mien- 
tras que dentro de cada nudo (estado) están representados ver- 
ticalmente los números residuales de las tres filas. Por razones ti- 
pográficas, en el texto que sigue escribiremos, en cambio: 2-2-1, 
3-0-1, etc. Finalmente, nótese que los nudos están reagrupados en 
niveles, Jl y J2 alternativamente, que denotan aquellos en los que 
la jugada corresponde al primero o al segundo jugador. 

Seguir el desarrollo del micro-Nim de la figura no es difícil, y 
menos aún ayudándose, por ejemplo, con cerillas reales. Analizan- 
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Figura 2.—Arbol simplificado del Marienbad 3-2-1 (a). Para mayor 
sencillez se han omitido muchas elecciones, especialmente las per- 
dedoras para el segundo jugador /2. Gana “matemáticamente” este último. 


do así todas las combinaciones posibles, nos daremos cuenta en 
seguida que el segundo jugador gana “por narices”, Por ejemplo, 
si después de la jugada 2/1 del primero, el segundo se decide 
por 1/2 dejando en la mesa 1-1-1, cualquier jugada que haga el 
otro dejará dos cerillas en filas diferentes: una de estas la cogerá 
el segundo, obligando al adversario a coger la última, perdiendo 
la partida. 

Para abreviar, observemos que en el grafo (o árbol) de la fi- 
gura mencionada se indican: 


0 con trazo grueso las jugadas ganadoras del segundo juga- 
dor; 

O los nudos finales, caracterizados todos por un estado 1-0-0, 
0-1-0 ó 0-0-1, son pequeños círculos que encierran un sig- 
no "+" o '-”, según venza el segundo o el primer jugador 
(puede ocurrir esto si el otro se equivoca, por ejemplo, con 
1/1 en la configuración 3-2-1, con lo que el primero, si no 
es tonto, replica con 1/1 y gana); 

0 partiendo desde abajo, se han colocado oportunamente 
signos "+" al lado de los nudos que se revelan nudos-raíz 
de subárboles ganadores para el segundo jugador: subien- 
do gradualmente es fácil.constatar que todos los subárbp- 
les que se refieren a la raíz del árbol entero tienen la mar- 
ca "+", de donde todo el Marienbad 3-2-1 es ganador para 
el segundo jugador, Nótese también que los nudos 2-2-0 y 
1-1-1 se han alcanzado ambos a través de dos caminos di- 
ferentes, 
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Nuestro algoritmo para el Nim 


Todo lo que hemos visto en el ejemplo precedente se puede 
generalizar. En los juegos del tipo que estamos examinando, la vic- 
toria es exclusiva de un “predestinado” que, cada vez que le toca 
jugar a él, sólo tiene que evitar las jugadas que cambiarían la si- 
tuación, ofreciendo la victoria matemática al adversario. En algu- 
no o en todos los nudos puede suceder que la "jugada feliz” sea 
una sólamente, pero no importa, es suficiente. 

La demostración del teorema ya la hemos visto empíricamen- 
te en el párrafo anterior: se basa en la descomposición del árbol 
del juego en subárboles (empezando por abajo), cada uno de los 
cuales es ganador para uno de los jugadores y perdedor para el 
otro. El árbol completo se compondrá —partiendo desde abajo— 
de subárboles, que salen de la raíz, marcados con "+" o", según 
sea ganador de los respectivos subjuegos el primero o el segun- 
do jugador. Ahora bien, si se llega a una situación como la de la 
figura 3-a, está claro que, sea cual sea la jugada que haga el pri- 
mero, estará predestinado a la derrota, salvo generosidad o igno- 


= sub-érbol 


+ ----2. juego 


Figura 3.—El árbol de un juego se puede subdividir en subárboles 

(y sub-juegos), cada uno de los cuales tendrá una combinación ga- 
nadora para un solo jugador entre J1 y j2. Si todos los sub-juegos que sa- 
len de un único nudo-raíz son combinaciones ganadoras para f2, como su- 
cede en (a), J1 no tiene posibilidad de ganar (excepto si hay algún error 
por parte de ]2). Si, en cambio, hay también un sub-árbol con combina- 
ción ganadora para el primer jugador (b), éste se asegura la victoria to- 
mando esa elección (2). ' 
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rancia del adversario. Si en cambio, como en b, hay por lo menos 
un subárbol marcado con *-” es con esta jugada con la que el pri- 
mero se asegura la victoria, 

Volvamos a Marienbad (hoy en día esta ciudad se llama Ma- 
rianske Lazne..). Es el suyo un juego un poco más serio y amplio 
que el mísero 3-2-1 visto hasta ahora. Resulta fácil imaginar lo fron- 
doso e intrincado que llegará a ser su árbol correspondiente. Ge- 
neralmente, los juegos de ordenador se basan en la exploración, 
más o menos exhaustiva, del subárbol de las jugadas siguientes, 
pero hacer ésto lateralmente es muy cemplicado y lento, excepto 
para los juegos sencillos, así que hay ciertas limitaciones: poda- 
duras, limitaciones de la profundidad, o sea, de los niveles de las 
jugadas, y otros criterios. De todas formas, el mecanismo de ex- 
ploración de árboles lo trataremos en el próximo capítulo. Aquí va- 
mos a evitarlo, adoptando otro método, más que nada para eludir 
el choque repentino con una serie de delicados conceptos infor- 
máticos, como las pilas y el backtracking. 

Utilizaremos una idea que, por lo menos en este caso especí- 
fico, simplifica el procedimiento y quizá aumenta la velocidad. Na- 
ció por la observación psicológica de como actúa el ser humano 
cuando juega al Nim o a otros juegos parecidos. Nuestra mente 
no es capaz de bajar demasiados niveles por lo que, más o me- 
nos conscientemente, lo que hacemos es analizar la configuración 
(en inglés se diría "pattern”) consiguiente a cada una de las juga- 
das posibles en ese nivel; si es reconocida como una de las ven- 
cedoras (o como "ventajosa" en los juegos muy complicados) la 
jugada se efectúa, si no se examina otra (escogida normalmente 
al azar). Ahora bien, si se tuviera el repertorio de todas las confi- 
guraciones ganadoras, bastaría realizar el análisis todas las veces 
sólo hasta el primer nivel, 

Nos explicaremos con un ejemplo. Supongamos que en la 
mesa tenemos 4-2-1. Pues bien, quien conozca que 3-2-1 es gana- 
dora (para él) no dudará en jugar 1/1. ¿Y si hubiera sido 2-1-5? 
No se necesita mucho para deducir, por analogía, que 1/3 produ- 
ce 2-1-3 y que este modelo es totalmente “equivalente” a 3-2-1, así 
como a 1-2-3 ó 1-3-2. Comprobamos así que no merece la pena 
acordarse de todas las configuraciones: será suficiente con recon- 
ducir las equivalentes a una única común. El criterio es sencillo y 
se basa en el hecho de que: 


O los ceros no cuentan; 
0 el orden de los datos tampoco cuenta, 


Por lo tanto será conveniente hacer referencia a una clasifi- 
cación preestablecida. Nosotros adoptaremos la decreciente. 
Llegados a este punto nos construirermos manualmente una 
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pequeña base de datos de las configuraciones vencedoras (lo re- 
petimos por última vez: "vencedoras” para quien las deja en la 
mesa). 

El procedimiento para construir estas configuraciones es me- 
cánico y, como veremos, se puede confiar a un programa compu- 
terizado, Va desde lo más sencillo hasta lo más complejo (en in- 
formática se diría que es de tipo "bottom up”), partiendo por tanto 
de la configuración más elemental posible, o sea, 1. Como dijimos 
antes este 1 está en el lugar de todas las posibles (1-0-0-..-0, 
0-1-0...-O, O-0-0-..-1). Limitémonos, por sencillez, a cinco líneas y ha- 
gamos girar las cifras de forma que: 


0 se respete el orden decreciente al representar el estado; 

0 se hagan crecer, hasta donde sea posible, las líneas infe- 
riores y las líneas vacías; 

O después de una configuración m-m-m-..-m se pase a 
. Im + 1-0-0-..-0 (que, por lo dicho, se abreviará con ..-m+l, 
omitiendo los ceros), 


En base a estos criterios, después de 3-2-1 viene 3-2-2 mien- 
tras que a 4-3-2 le siguen 4-3-2-1 y 4-3-2-1-1, Concretando tendre- 
mos: 
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: 2-2-2; 2-2-2-1; 2-2-2-1-1; 2-2-2-2; 
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-1-1-1; 
-2-1-1-1; 3-2-2 3-2-2-1; 3-2-2-1-1; 3-2-2-2; 
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-1-1-1; 3-3-2; ..etc, t 


La búsqueda de las configuraciones adecuadas se parece en 
todo a la de los números primos sucesivos: a cada nueva confi- 
guración se le hace la prueba de “invencibilidad”, comparándola 
con las configuraciones vencedoras encontradas hasta ese mo- 
mento, Si, partiendo de una de las jugadas permitidas, es posible 
reconducirla a una de las vencedoras, evidentemente se tratará 
de una configuración vencedora, pero para el adversario, 

Por lo tanto se la descarta, En cambio, será incluida la que sale 
intacta del test, para todas las jugadas posibles, Siguiendo este cri- 
terio encontraremos enseguida las primeras configuraciones ven- 
cedoras: 
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3-3, 3-2-1 


Siguiendo con este aburridísimo ejercicio se examinan las 
configuraciones que siguen, al lado de las cuales se pondrá, entre 
paréntesis, "VENCEDORA” o, en caso contrario, las configuracio- 
nes vencedoras a las que se puede reducir: 


3-2-1-1 (3-2-1 6 2-2-1-1) 
3-2-1-1-1 . (VENCEDORA) 
3-2-2 (3-2-1 6 2-2) 
3-2-2-1 (3-2-1 Ó 2-2-1-1) 
3-2-2-1-1 (2-2-1-1 6 3-2-1-1-1) 
3-2-2-2 (2-2-2-2) 

3-2-2-2-1 (VENCEDORA) 
3-2-2-2-2 (2-2-2-2 Ó 3-2-2-2-1) 
3-3 (VENCEDORA) 


En los DATA de las líneas 4 a 12 del programa de la figura 4 
se representan posteriores configuraciones Nim vencedoras. 
Quien lo desee puede intentar encontrar otras. Cuantas más com- 
binaciones ganadoras memoricemos más posibilidades tendre- 
mos de ganar fácilmente a los ignorantes y desprevenidos. 


2. REN LE PASADO AñO EN MARE 

MATA UE Y AAA 4 

8 DMT*321”"32114% 
13522” 

B DATA" 33321","3333,"44"," 9441 1%, "4400" 
144321." 44373 

10. DATA" 44 4954 P.554 11139429 PP 507 7, 
.i32r 

12 DATA. "54441055" 351101"5522"* 

14 DATA 3,5,3,2,1:REM DATOS DE CONFIGURACION INICIAL 

100 LIM=29:NL=3:DIM CV$ (LIM) ,S(NL) y VERDADERO=1:FALSO=0 

110 FOR I=1 TO LIM:READ CU$(13:NEXT 1 

120 FOR R=1 TO ML2READ S(R):NEXT R 

130 HDME:PRINT "HAY VARIAS FILAS DE CERTLLAS*:PRINT 

140 PRINT " FILA NUMERO",”  CERILLAS  ":PRINT 

150 FOR I=1 TO NL:+PRINT * yl" "S(1):NEXT 1 

160 PRINT: INPUT "ESCOJE LINEA: ":Ls1F L<1 OR L3NL THEN 150 

170 INPUT "ESCOJE CERILLAS : "¿NC: IF NC<1 OR NCASIL) THEN 150 

180 S(L)=S(L)-NE 

190 REM EL ORDENADOR ESTUDIA LA JUGADA 

200 GOSUE 500:REM COPIA S EN LA MATRIZ-TRABAJO MH 


ALIAS "MIM") 
Pa? L2azsd E” 2022 


( 
LELI A SL 


na 
Le 


= + 1) 


NBAD 
88 
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210 FOR I=1 TO NL 

220 3F S(1)=0 THEN 260: REM VE A NEXT SALTANDO LINEA VACIA 
230 FOR PRUEBA=1 TO S(1) 

240 WI) =W(1) PRUEBA 

250 GOSUB 1000:;REM DOUBBLE-SART DE W (NUEVO) 

260 GOSUR 1200; REM TRANSF.DE W EN CADENA C$ 

270 REM BUSQUEDA DE C$ EN MATRIZ CVs 

280 ENCUSFALSO 

290 FOR K=1 TO LIM 

300 IF CS$=CV$(K) THEN ENCU=VERDADERO 

310 NEXT K 

320 IF ENCU TREN NC=PRUEBA:LINEA=1:PRUEBA=S11): 607D 340 
330 GOSUB 500:REM RESTABLECE 5 EN W 

340 NEXT PRUEBA 

350 IF ENCU THEN T=NL 

360 NEXT 1 

370 IF NOT ENCU THEN PRINT "ERROR EN LOS DATAS":STOP 
390 PRINT:PRINT "YO, ORDENADOR, QUITO";NC;"CERILLAS" 

390 PRINT "DE LA LINEA "¡LINEA 

400 S(LINEA)=S(LINEA)-NC:FDR K=1 TO 1000:NEXT K 

410 IF CSC" 1% THEN 140 

420 PRINT:PRINT ",. QUEDANDO EN LA MESA” 

430 PRINT "UNA SOLA CERILLA,HE GANADO!" 

440 PRINT: INPUT "OTRA PARTIDA? (S/N)";R$ 

450 IF LEFTS(R$,1)="S" OR LEFTS(R$,1)="5" THEN RESTORE:60T0 110 
460 END 

490 REM COPIA DE S EN Y 

500 FOR K=1 TO NL:M(K)=5(K)sNEXT K:RETURN 

990 FOR K=2 TO NL 
1000 TF RIK)>WIX-1) THEN C=W(X)= W(K)=M(K-1):W(K-1)=C:K=1 
1020 NEXT K:RETURN 

1190 REM TRANSFORMACION MATRIZ M EN CADENA C$ 

1210 FOR K=1 TO NL 

1220 1F W(X)=0 THEN K=NL:GDTO 1240:REM OMITE CERDS 

1230 Cs=C$+" "+STRS(MIK)) 

1240 NEXT K:RETURN 


Il) Figura 4.—Listado del programa que siempre gana el Manienbad 
Y 8-5-3-2-1 (realizado en el BASIC del Apple), 


El programa 


Una vez definido el algoritmo y, con él, su respectiva máqui- 
na de estados variables arbórea (nótese que esta vez el algoritmo 
la sobreentiende y, en cierto sentido, la sobrepasa) queda por me- 
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ditar una estructura de datos apropiada. Después de ello hacer un 
programa correctamente será sólo cuestión de paciencia, aunque 
necesitará bastante, porque incluso un pequeño fallo (olvidar el 
RETURN en una subrutina, equivocar las modalidades ejecutivas 
de una instrucción BASIC, etc.) será suficiente para hacer tamba- 
learse al más comprobado de los algoritmos. Al final podremos 
asombrar (moderadamente) a nuestros amigos poniéndolos de- 
lante de una máquina que siempre gana, 

Sin pretender que sea la solución óptima, sugerimos la matriz 
y la cadena como estructuras de datos apropiadas. En efecto, nos 
parece que: ra 


0 la matriz (de cinco elementos en nuestro caso) es cómoda 
para realizar la clasificación (descendente) y las diferentes 
"descamaduras” de elementos; 

O la cadena resulta una representación sintética de las con- 
figuraciones, especialmente con la finalidad de una com- 
paración inmediata (sobre la ocupación de espacio y la ex- 
tensión del método a juegos Nim más amplios habría mu- 
cho que discutir). 


No nos queda pues más que diseccionar, trozo por trozo, el 
programa propuesto, Generalmente, hemos reducido todo a sus 
términos esenciales, con comentarios muy escuetos e interface- 
usuario espartano, Quien tenga ganas podrá, por ejemplo, usar los 
gráficos (para representar visualmente las cerillas) y otras facili- 
dades difícilmente transportables de un micro a otro. 

Los DATA iniciales representan las configuraciones ganado- 
ras. Hemos encontrado más sencillo sustituir el trazo separador 
por el espacio en blanco (en inglés blank), lo que asegura una 
buena transferibilidad entre diferentes dialectos BASIC. De todas 
formas hay que tener cuidado y hacer preceder la cadena por un 
espacio. Esto se ha hecho en atención al BASIC Microsoft y deri- 
vados (por ejemplo el del Commodore 64) en los que la función 
STR$OO), pone, sistemáticamente, un espacio delante del número 
X, al convertirlo en cadena (o sea, transforma 1234en" 1234”), El 
programa de la figura, para alternar dialectos de similar populari- 
dad, se refiere al BASIC del Apple. De todas formas, las modifica- 
ciones que hay que hacer son mínimas. Los microsoftuistas sólo 
lendrán que cambiar, en la línea 110, VERDADERO=]1 por VER- 
DADERO=-] y la línea 1230 así: 


1230 C$=C$+STR$ (W(K)) 


Volviendo al listado (línea 110), las configuraciones ganado- 
las se cargan enseguida en la matriz CVf Inmediatamente se po- 
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nen en las seis casillas del vector de estado (S) los valores 5, 5, 3, 
2, 1, que constituyen el Nim de calibre medio gracias al cual el 
ordenador, jugando como segundo, nos gana incansablemente. 

Desde la línea 130 a la 160 la máquina propone al adversario 
humano que mueva, después de mostrarle la situación inicial con 
el cuadro siguiente: 


NUMERO DE FILAS CERILLAS 


Un detalle: en la línea 170 el control IF NC<1 OR NC>E(L), 
cuya misión es impedir que el usuario haga trampa eligiendo cero 
cerillas o un número mayor de las presentes, NO se cierra con 
THEN 170, como se podría esperar. El THEN 160, envía a la elec- 
ción de otra línea y sirve para el caso de que E(L)=0. Si se hu- 
biera hecho THEN 170 estaríamos atrapados en un bucle sin fin. 

Después de que el ordenador ha tomado nota de nuestra ju- 
gada (línea 180), quitando las NC Cerillas de la línea L elegida, se 
inicia el estudio de la jugada. Para mayor comodidad, se citan aquí 
las líneas correspondientes: 


190 REM ESTUDIO DE LA JUGADA 
POR PARTE DEL ORZ"“ADOR 

200 GOSUB S00:REM LUPIA DE E EN 
LA MATRIZ DE TRABAJO W 

210 FOR I=1 TO NL 

220 IF Ef1)=0 THEN 360:REM VETE 
A NEXT, SALTANDO LA LINEA VACIA 

230 FOR PRUEBA=1 TO E(1) 

240 $(1)=N(1)-PRUEBA 

230 GOSUB 1000;REM ORDENACION PGR 
BURBUJA DE WN (NUEVA) 

260 SOSUB 1200:REM TRANSFORMA Y 
EN CADENA [$ 

270 REM BUSQUEDA DE C$ EN MATRIZ EV$ 
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280 ENCU=0 

290 FOR K=1 TO LIM 

300 1F Cé=CV$(X) THEN ENCU=VERDADERO 

310 NEXT K 

320 IF ENCU THEN NC=PRUEBAsLINEA=1; 
PRUEBA=E(1):G0T0 340 

330 605U3 500:+REM RESTABLECE E (NO ENCONTRADO) 
EN M 

340 NEXT PRUEBA 

330 IF ENCU THEN 1=NL 

360 NEXT 1 


Para que resulte más evidente se ha utilizado en el listado una 
indentación, que aisla mejor los ciclos más internos, con indices 
PRUEBA y K, "anidados” dentro del bucle principal, de indice 1. 

El ordenador, después de haber copiado E en W (en la su- 
brutina 500) prueba a quitar, línea por línea, un número de cerillas 
creciente PRUEBA desde 1 hasta el número E(I) presente en la lí- 
nea 1. Entonces hace la ordenación de W y la transforma en una 
cadena C$ que va a buscar en la base de datos CV$ (líneas 
280-310). Antes de pasar al siguiente ciclo de PRUEBA (¡cuidado!) 
es necesario restablecer (con la subrutina 500, llamada en la línea 
330) la matriz originaria E en W, ya que la matriz de trabajo ha 
sido manipulada. Cuando por fin se sale, con el NEXT de la línea 
360, sabemos que el booleano ENCU tiene que estar activado. La 
prudencia nos aconseja añadir la siguiente línea: 


370 IF NOT ENCU THEN PRINT "¿ERROR EN LOS DATA?":STOP 


En efecto, un descuido o un error de transcripción, siempre 
es posible en una fase de ampliación del juego o de escritura de 
los DATA, Como alternativa, quien lo desee puede dejar, aposta, 
los DATA incompletos (sería como dejar parcialmente ignorante 
al ordenador) e insertar en la línea 370 un adecuado GOSUB, que 
hos mande a una rutina en la que el ordenador elija la jugada con 
criterios aleatorios (naturalmente, después será necesario modifi- 
car un poco el programa para prever que el ordenador admita la 
victoria del hombre). 

Ahora, el resto del programa y las distintas subrutinas, ya de- 
berfan ser lo suficientemente auto-explicativas y su examen es 
más útil que cualquier intento de explicación, 

Unicamente, y con respecto a los ciclos anidados, damos un 
consejo, Es una buena regla evitar, excepto en los casos más sen- 
Gillos, salir fuera de un bucle directamente: en muchos BASIC nos 
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toparíamos con una interrupción y la señalización de error "NEXT 
WITHOUT FOR” en el primer encuentro con un NEXT de otro bu- 
cle externo. Será más seguro forzar el valor final antes de hacer 
un GOTO a la línea que contenga el NEXT de aquel ciclo, Con- 
sulte para esto las líneas 300 y 320. 


El generador de Nim-pattern 


Redactar un programa que nos ofrezca las combinaciones ga- 
nadoras del Marienbad sería un excelente ejercicio mental. La so- 
lución que proponemos aparece en la figura 5. Dado que todos 
los mecanismos ya han sido suficientemente explicados, los más 
adelantados deberían intentar soluciones de propia cosecha. Los 
más listos y voluntariosos podrán, incluso, fundir los dos progra- 


BO REM EXKANRRRRRRA ALE RRE LC RANLL NA LAR EL LRRIGRRAEA 
50 REM Y GENERADOR DE CONFIGURACIONES GANADORAS Y 
50 REM £ DEL JUEGO DEL "NIM* E 
70 REM 4 (TAMBIER PROGRAMA MARIENBAD) 1 
BO REM SRREARLAGESITSICIGTIIIRI NIDOS RIFIRTÍTESEL 
00 NC=4:NL=5:DIM EU$t2007 .SINL) WR INL) > VERDADERO=1 
100 ENC=1:S5(0)=NE:+3(1)=1:C4=" 1*;REM FRIMERA CADENA EANADOPA 
110 GOSUB 400:REX CARGADO EN CUS 
120 REM CREACION NUEVA CONFIGURACION 
130 M=2:REM MARCHA HACIA ADELANTE 
140 FOR X=M TO NL 
150 51) =5(0 +1 
160 GOSUB S00:REM PRUEBA DE INVENCISILIDAD 
170 IF NOT ENCU THEN GOSUE 300:60SYE 400 
REM CARGA CONFIG.SI NO REDUCIBLE 
180 NEXTX 
190 IF S(NL)=NC THEN 240:REM PRINT FINAL 
200 REM MARCHA ATRAS 
210 FOR X=NL TO 1 STEP -1 
220 TF S(X)=5(X-1) THEN SIX)=0:NEXT % 
230 M=X¿60T0 140 
240 REM PRINT FINAL DE LAS CYS 
250 FOR K=1 TO CNC:PRINT CVBIK);" "ys NEXT K 
250 END 
300 REM TRASFORM, MATRIZ-TRAB EN CADENA 
310 Cg="" 
320 FOR K=1 TO NL 
330 1F N(X)=0 THEN K=NR:G0T0 350 


240 C$=C9+" "FSTRÍ(WIK)) 
330 NEXT K:RETURN 
400 REM CARGA EN MATRIZ Cy4 
210 CUB (CNE)=C4: ENC=CNC+1 
420 RETURN 
300 REM PRUEBA DE INVENCIBILIDAD 
310 GOSUB 790:REM COPIA S EN MATRIZ-TRAB. Y 
320 FOR 1=l TO NLsIF 8(1)=0 THEN I=NL:G60TO 440 
330 FOR PRUEBA=1 TO E(1) 
340 W(1)=H (1) PRUEBA 
550 SOSUB 7S0:50SUB 300:REM SORTTRAÑSE.EN CADENA C$ 
350 ENCU=0:+ REM BUSQUEDA DE €$ EN MATRIZ CVs 
570 FOR K=1 TO CNC-1 
380 IF CS=C4$1K) THEN ENCU=VERDADERO: K=CNC-1 
590 NEXT K 
500 IF ENCU THEN PRUEBA=5(1):60T0 520 
510 G0SUB 700:REM RESTABLECE S EN Y 
20 NEXT PRUEBA 
230 IF ENCU THEN I=NL 
640 NEXT 1 
550 RETURN 
700 REM COPIA S EN MATRIZ-TRAB. $ 
710 FOR K= 1 TO NsW(K)=5(K):NEXT KsRETURN 
720 REM DUBBLE-SORT (ORDEN DECREC.) DE Y 
760 FOR K=1 TO NL-1 
770 TF WIK)<H4K+1) THEN CobitK) (KW (+1): (K+1)=0:K=0 
780 NEXT K: RETURN 
790 REM FIN DE PROGRAMA 


Figura 5.—Programa que origina las combinaciones ganadoras. Las 
subrutinas comunes con el anterior tienen aquí números de línea di- 
lorentes, 


más, con algún menú inicial, teniendo en cuenta que ambos se ba- 
Han en el test de "invencibilidaa”. 

Con respecto al programa anterior, el que vamos a ver de in- 
meocdliato tiene como novedad el mecanismo de la generación de 
oonliguraciones (ganadoras y no ganadoras). La solución propues- 
la ficura en las líneas 120 a 130 (NC y NL son los números de co- 
lumna y línea elegidas). Hay que tener en cuenta que los núme- 
ton do la subrutinas no se corresponden con las del programa pre- 
vedente: 


120 REM CREACIÓN NUEVA CONFIGURACION 
130 M=2:REM MARCHA ADELANTE 


140 FOR X= M TO NL 

150 900:=500+1 

160 GOSUB 500: REM PRUEBA DE "INVENCIBILIDAD" 
179 IF NOT ENCU THEN GOSUE 300: 605UB 400 

180 NEXT X 

190 IF S(NL2=NC THEN 240:REM PRINT FINAL 
200 REM MARCHA ATRAS 

210 FOR X=NL TO 1 STEF -1 

220 1F S(X)=S1(X-1) THEN S1X)=0:NEXT X 

230 M=X: 6070 140 


El primer truco consiste en poner NC (o sea, el número má- 
ximo de cerillas por línea) en el elemento de índice OS(0) (ver 
figura 6). Al principio, una vez cargada la cadena C$="1" en CVX1) 
y establecido S(1)=1 —mientras que de S(2) a S(NL) se tendrán 
todos ceros— se ejecuta la "marcha adelante”, como hemos llama- 
do a la primera fase. Esta consiste en incrementar en 1 todos los 
elementos, desde M=2 en adelante (línea 140). Así, al primer paso 
tendremos: “1”; “111”. “11111”, A continuación, M tomará otros va- 
lores, así que de una configuración inicial como "32111" se pasará 
(con M inicial igual a 3) a: '32211”; "32221" "32222". 


EN Figura 6.—Matriz de estado S. En la generación de las sucesivas con- 
figuraciones se pone S(0)=8. Así, en la fase hacia atrás de puesta a 
cero el test IF S(X)=5S(X- 1) proporciona para X=1, 5(1) <>S(Q) y el 3 de 
la figura no se convierte en un cero (ver texto). 
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¿Qué ocurre en la otra fase, llamada "marcha atrás” (líneas 
200-230)? Es muy simple: partiendo desde abajo (X=NL) hasta arri- 
ba, se ponen a cero todos los S(X) que coincidan, parándose en 
el primero que resulte ser de valor mayor, De este modo, por 
ejemplo, a "43222" le seguirá "43000" (como cadena tendremos en 
realidad, “43"), mientras que a "32222" le seguirá "3". Y esto, gra- 
cias al truco de haber establecido S(0)=NC. Ya no queda más que 
hacer (línea 230) M=X y retomar la marcha adelante, hasta que 
S(NL)=NC; no se repite la marcha atrás, sino que se llega a la irm- 
presión final. Si quiere puede comprobar que el proceso recorre 
todas las configuraciones (ganadoras y perdedoras). Basta para 
ello con hacer un par de cambios: 


O borrar la línea 160; 
O modificar la línea 170 así: 


170 GOSUB 700: GOSUB 300: GOSUB 400 


(después de haber copiado cada S en W lo convierte en cadena 
y lo carga en CV$). El programa, tras el RUN, hará una lista de to- 
das las configuraciones, empleando mucho menos tiempo que el 
programa completo. Este último, con todas sus búsquedas, prue- 
bas y ordenaciones por burbujas, se muestra bastante renqueante 
apenas sobrepasa los valores NC=NL=5. Con NL=5 y NC=8 el 
Apple Il tarda doce minutos para generar las 59 CV$ ganadoras. 

Se podrían obtener tiempos sensiblemente menores aplican- 
do, para la búsqueda en las tablas, la técnica de la bisección, que 
consiste en buscar primero en una de las mitades de la matriz, des- 
pués en la mitad de la mitad y así sucesivamente. Quien la conoz- 
ca, nos objetará que esta técnica requiere que CVf esté ordena- 
do, Pues bien, lo está, a pesar de las apariencias que pueda dar 
la extraña generación de los elementos sucesivos. En efecto, se 
trata de cadenas y no de números, y en la clasificación de éstas 
(son datos de tipo alfabético) una cadena como "44" es conside- 
rada mayor que una, como “4332211”, aunque sea más larga (lo 
que confirma lo acertado del proceso de generación y de la elec- 
ción del tipo cadena, ¿no les parece?). 

Pero la corrección que les sugerimos es todavía más sencilla: 
se basa en la consideración de que, cada vez que se genera una 
nueva CVf es probable que pudiera ser “absorbida” por una C¡V$ 
generada recientemente (ejemplo: "44221” por "4422”) las prime- 
ras CV$ ganadoras serán evocadas cada vez menos. 

La experiencia confirma esta intuición (razonada), pues los 
tiempos se ven prácticamente reducidos a la mitad. La modifica- 
ción (nos olvidábamos) es esta: 


570 FOR K=CNF-1 TO 1 STEP -1 
380 IF C9=CV$IK) THEN ENCU=VERDADERD:K=1 
590 NEXT K 


Una vez más el software se muestra como una materia en con- 
tinua evolución. 
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ESTRATEGIAS INTELIGENTES 


Recordando un antiguo problema 


eremos ahora un problema de estrategia com- 
puterizada sencillo, como podrá apreciar, pero 
delicadísimo, El ordenador deberá encontrar la 
mejor solución para transportar un lobo, una 
cabra y una coliflor, desde una orilla de un río 
hasta la otra, disponiendo de una barca con ca- 
pacidad para un solo pasajero por viaje (apar- 
te del barquero, claro) y evitando que el lobo 
se coma la cabra y la cabra la coliflor. , 

El árbol de este juego se construye sin muchas dificultades. 
También será inevitable un barrido exhaustivo. Observando la fi- 
gura 1 notará que el árbol aparece bastante podado pero, para- 
dójicamente, tiene una amplitud infinita. Para comprender su evo- 
lución, no debemos avergonzarnos si utilizamos tres carteles con 
los rótulos "]”, “cb” y "co" —como figuran en el grafo para los tres 
compañeros del campesino— para que nos guíen en sus posicio- 
nes y movimientos entre las dos orillas. El árbol de la figura se en- 
tenderá mejor si tiene en cuenta que: 


0 los nudos están señalados alternativamente con D e l (por 
orilla Derecha y orilla Izquierda: la orilla Derecha se supo- 
ne que es la de partida); 

O las ramas de elección aparecen señaladas con los carteles 
ya vistos ("1", "cb", “co”) además de "n”, que significa que 
no se transporta a nadie; 

0 el signo + indica el éxito del juego (todos los protagonis- 
tas están en la otra orilla); 

O los nudos marcados con “—" suponen jugadas perdedoras. 
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(Cb come Co) ( , io) 0 MW) (L come Cb) 


Pequeño 
ordenador 
campesino 


Cabra 
Barca 
Coliflor 
Lobo 


Cb 


final 


Figura 1.—Arbol simplificado del juego del lobo, la cabra, y la coli- 
flor, Se advierten dos estrategias abreviadas e infinitas soluciones 
'dWegeneradas”, no optimizadas. ' 


Con el fin de que el árbol quede podado al máximo, no sólo se 
han excluído elecciones que supongan que el lobo se come a la 
cabra o ésta a la coliflor, sino también las que en la vuelta trans- 
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porten lo mismo que se llevó a la ida. En la orilla izquierda, como 
se verá, se ha hecho algo más específico, 

El análisis de la figura revela que las estrategias vencedoras 
optimizadas son dos, y se consiguen con los siguientes movimien- 
tos en los dos sentidos: 


O cabra (primera jugada obligada) - nadie - lobo - cabra 
(vuelta) - coliflor - nadie - cabra; 
0 cabra - nadie - coliflor - cabra - lobo - nadie - cabra, 


Se trata de dos grupos de siete viajes señalados en la figura 
con 1,2,3,4,5,6,7 y con 123/4587. ' 

Precisemos ahora la tarea que se quiere confiar al programa. 
En esencia esta consiste en: encontrar la jugada sucesiva simu- 
lando el desarrollo de la máquina de estados variables y justificar 
al operador las jugadas descartadas. 

Siguiendo los criterios tantas veces discutidos, lo más impor- 
tante es, ante todo, definir una estructura de datos adecuada, Un 
primer ejemplo, para que el lector piense en él, aparece en la fi- 
gura 2, en lenguaje Pascal, junto a dos de los procedimientos po- 
sibles, En particular se apreciarán los tipos estructurados siguien- 
tes: 


TYPE pasaj=[nadie, lobo, cabra, coliflor] 
orilla=SET OF pasaj; 


Recordamos, tanto a los pascalistas como a los que no lo son, 
que un tipo SET está formado por todas las combinaciones posi- 
bles —desde ninguno a todos— de los elementos del tipo-dato 
que sigue a OF. En este caso serían: el conjunto vacío “lobo”; "lobo 
y cabra" y sucesivamente hasta llegar a "lobo, cabra y coliflor”. 
Aplicadas a las variables "ordech" y "orizg”, precisarán con clari- 
dad la situación en las orillas y facilitarán mucho el planteamiento 
de los procedimientos. Por ejemplo, el (hipotético) procedimiento 
“valcomidech” (por “valoración de la comilona en la orilla dere- 
cha”) incluiría la frase: 


IF lobo IN ordech AND cabra IN ordech 
THEN comil=lobo;, victima:=cabra 


que posee una gran elocuencia incluso para quien no sepa que 
IN hace el test de pertenencia del lobo o la cabra a la variable 
de tipo SET ordech, 

En la misma se usa la estructura en pila (stack). La pila servi- 
rá también para el fin primario, didáctico, de entender como esta 
estructura, llamada a veces LIFO (Last In First Out: último en en- 
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PROGRAM cabracol: 
TYPE pasaj=[nadie,lobo,cabra,coliflor] 
orilla=SET OF pasaj; 
VAR ordech,orizg:orilla; 
pas,coril,victimaspasaj; 
nundech,nimizq: INTEGER; 
primvuel,dir:comil: BOOLEAN: 
vilasmatriz£1,.2001 OF pasaj; 
dirpila: INTEGER; 
PROCEDURE inicialic; 
BEGIN 
ordech:=[lobo,cabra, coliflor]; 
orizq:=[] 
dir: =FALSE; 
pasaj:=nadie; 
primvuel:=TRUE; 
(kb etc 4) 
END; 
PROCEDURE valdech(t valor "comilona” en orilla dech Y) 
BEGIN 
comi lona: =TRUE; 
IF numdech<>2 THEN comilona:=false; 
ELSE IF lobo IN ordech AND cabra IN ordech 
THEN comil+=)oboyvictima:=cabra; 
ELSE IF cabra IN ordech AND 
coliflor IN ordech 
THEN comil:=cabrazvictimas=coliflor; 
END; 
(f resto de programa $) 


Figura 2£.—Posible implementación (a título indicativo meramente) 

de la estructura de datos del juego anterior en Pascal, con el bos- 
quejo de dos procedimientos que los utilizan, caracterizados por la au- 
toexplicación típica de este lenguaje, 


trar, primero en salir) funciona para el barrido de árboles de jug- 
go y distintos laberintos. Precisamente la pila sirve para: 


0 amontonar las elecciones hechas una sobre otra y, esto 
también es importante, para conservar el estado del siste- 
ma anterior a la jugada actual: 
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0 recuperar un estado precedente (de nivel inferior) en el 
caso que én un nudo de un árbol TODAS las jugadas se ha- 
yan agotado, después de lo cual, vueltos a un nivel ante- 
rior, podremos empezar "desde el punto en el que nos hu- 
biéramos quedado” a estudiar una jugada distinta a la que 

nos llevó a un callejón sin salida, 


Esta es la esencia del mecanismo llamado backtraking (vuel- 
ta sobre nuestros propios pasos) que, en lenguajes como LISP o 
Prolog está disponible en forma transparente para el usuario. Para 
mayor claridad, esto está ligado al concepto de recursividad, so- 
bre el que no insistiremos, aunque les recomendamos repasar el 
capítulo correspondiente de "Introducción al Pascal: programación 
estructurada”. 

En cuanto a la pila (debe su nombre a la posibilidad de ser 
asimilada a una pila de platos) crece o decrece a través de ope- 
raciones opuestas llamadas PUSH y POP respectivamente, Obser- 
ve la pila ilustrada en la figura 3 y, seguidamente, la figura 7, que 
ilustra como se usará la pila en el caso de nuestro transbordo es- 
tratégico. 


Estructura de datos necesaria en BASIC 


Está ilustrada en la figura 4. Al lado de las variables particu- 
lares de tipo booleano (lógico, on/off, desviadores o como se las 
quiera llamar) y a la pila de cadenas STK$, de las que hablaremos 
a su debido tiempo, debemos destacar: 


O la matriz AN$ que tiene cuatro elementos (incluída "nadie”) 
y que usaremos en los mensajes que indiquen el nombre 
del pasajero a bordo de la barca; 

O las matrices OD y Ol que se refieren a la situación en las 
orillas derecha e izquierda; el elemento de índice nulo in- 
dica el número de personajes allí presentes (excluído el 
campesino), mientras que los otros elementos pueden va- 
ler0 ó 1, denotando la ausencia o presencia de su elemen- 
to asociado, en el orden siguiente: lobo, cabra, coliflor, Así, 
por ejemplo, el estado OD(0)=2; OD(1)=1;, OD(2)=0; 
OD(3)=l indica lobo y coliflor en la derecha; 

O las variables PAS, PD y Pl, cuyo rango está entre 0 y 3 
(0="nadie"; 1="lobo”, etc.) son, respectivamente, el PASaje- 
ro actual de la barca y los índices usados para escoger al 
nuevo pasajero en las dos orillas; 

O DIR es un booleano que indica la DIRección actual: de de- 
recha a izquierda o viceversa. 


63 


Situación Push Push 
inicial 


Pop Pop Push 


Figura 3.—La pila (stack) se puede asimilar con un montón de pla- 
h tos. La operación PUSH (empuja) coloca un “plato” nuevo en su cima 
(carga datos), mientras que la operación contraria, POP, extrae los platos 
(datos) en un orden inverso al de apilamiento (el último que se pone es 
el primero que se toma), La figura ilustra hipotéticas operaciones suvesi- 
vas de PUSH y POP. 


Sobre la posible redundancia de los datos se puede discutir 
mucho, pero nosotros reivindicamos la virtud de la claridad y del 
“más vale abundar.. "tanto aquí como en otros aspectos de la vida. 

En la figura 5 aparece el diagrama de flujo del conjunto. Se 
aprecia que a la fase de inicialización de los datos sigue una fase 
de "polling de usuario” (polling equivale, más o menos, a investi- 
gación) en la que el ordenador precisa, a requerimiento nuestro, 
lo que está haciendo, La instrucción elemental DIR=NOT DIR in- 
vierte a cada ciclo —de O a 1 y viceversa— el indicador de ruta, 
De esta forma, un poco más adelante, se tiene la posibilidad'de 
escoger o alternar, en los giros pares e impares, la jugada refe- 
rente a la orilla derecha o izquierda. Como veremos en breve, no 
ha sido posible unificar en un solo procedimiento los dos subpro- 
gramas, aunque son bastante parecidos, 
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Matriz! 
ANS 
o q TA 


[lobo] [cabra] [coliflor] 


+ Orilla derecha OD 


+ Onilla izquierda Ol 


Pasajero PAS O = Nadie 
1 = Lobo 
2 = Cabra 

+ Indice pas. en 3 = Coliflor 


orilla derecha PD 


+ Indice pasajeros en 
onlla izquierda Pl 


A O de derecha — izquierda 
: Dirección DIR 


1 de izquierda > derecha 


+ Pila de estado STKS 


Otros datos: FIN = final de juego 
SW = primera vuelta 
FM = desviador en archivo 
C = "posible comilona” (SI/NO) 


3 


1 


[0 Ausente 


Presente 


/ Figura 4 —Estructura de datos en BASIC, Se le puede criticar una 
cierta redundancia, pero esto favorece la claridad de los plantea- 


mientos. 


Antes de tales valoraciones se dispone de la subrutina PUSH, 
para guardar el estado actual en la pila (o bien, anticipando cosas, 
las matrices AN$, OD, OI y las variables PAS, PD, PI, etc.) Supon- 
gamos ahora que FIN y FM son dos booleanos que representan, 
el primero, el traslado completo del trío y el segundo el Final de 
los Movimientos del nivel. En el caso de una respuesta afirmativa 
a la pregunta ¿FINAL? iremos al epílogo y conclusión del juego 
(lo veremos), mientras que con FM apagado se vuelve a empezar 
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a) 


con el bucle principal. En cambio ¿qué pasa cuando FM está “on”? 
Está claro: agotadas las posibilidades de jugada en ese nivel, se 
ejecuta POP para subir de nivel. Para aclarar este asunto recluer- 
den el árbol de la figura 1; imagínense que se encuentran en el 
nudo de tipo D siguiente a la jugada número 6 y que (hipótesis 
absurda) todas las jugadas que se han intentado han dado un re- 
sultado negativo: el POP deberá llevarles al nudo $ anterior. 
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de Figura 5, a) —Esquema general del programa. b) Detalle del sub- 
BS programa “sondeo del usuario”. 


Siguiendo con el flujo, después se examina la pila: si estuvie- 
se completamente vacía significaría que todas las posibles calles 
han sido exploradas y el algoritmo acaba con un mensaje similar 
a “FINAL JUEGO”. En caso contrario nos trasladamos al punto X, de- 
bajo del PUSH, para entrar en la jugada siguiente (el transbordo 
del lobo en la hipótesis que hicimos). Cuando, en cambio, se al- 
canza la condición FINAL, se hace el RESUMEN seguido del re- 
querimiento “¿OTRA VUELTA?” Si el usuario contesta que sí, se 
ejecuta un POP posterior, la vía más directa y lógica para explo- 
rar una solución alternativa a la recién encontrada, 


El listado y las explicaciones 


Resumiendo, el programa está planteado de forma que el or- 
denador, con las reglas del juego en su memoria, sea capaz de ba- 
rrer de modo exhaustivo el árbol entero, señalando todas las po- 
sibilidades y terminando automáticamente cuando haya recorri- 
do todo el camino y encontrado todas las soluciones. Es impor- 
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tante subrayar que, a priori, no podemos excluir que NO haya nin- 
guna solución; en tal caso se saldrá respondiendo con “SI” a la pre- 
gunta ¿"FINAL DE JUEGO”? sin que la condición FINAL y el suce- 
sivo RESUMEN hayan tenido lugar. En suma, el programa resuel- 
ve "mecánicamente" el problema (deberán "olvidarse" de que ya 
conocen —por lo menos— dos soluciones). 

El listado del programa, en BASIC, está representado en la fi- 
gura 6 y refleja el diagrama de flujo del que ya hemos hablado, 
excepto por la instrucción DIR=NOT DIR, que no está colocada 
exactamente como en el diagrama. Hay que precisar que el pro- 
grama ha sido escrito para un ctdenador personal Apple lle, por 
lo cual harán falta pequeñas modificaciones del tipo de CLS en 
vez de HOME y, sobre todo, revisar algunos tratamientos boolea- 
nos en los dialectos en los que “verdadero” esté codificado con 
"-1” en lugar de con "1" como en el BASIC Applesoft. 


10 REM ANA ADA AAA baANDA ANA AS DADA RAR CADA 


20 REM SALVAR CABRA —— EBLIFLOR. Lhñ 


30 REM 244 JUEGO DE MICRO 1.A. Zhh 
40 RES EA 10YA 
SO REM ROO CACEDA 
56 HOME 


70 REM INICIALIZACIONES 

80 ANFCO)="NADIE" 

90 ANG$(1)="EL LOBO" 

160 ANGI2)="LA CABRA" 

110 ANSCZ)="LA COLIFLOR" 

120 REM PREPARACION ESTADO ORILLA 
130 9D(0)=3 

140 FOR I=1 TO 3:0D(1)=13NEXT I 
150 2110)=0 


160 FOR 1=1 TO 3201 (1)=19NEXT L 
170 DIR=05:PAS=0:5M=05FIN=0 
180 PD=0:PI=0 

190 REM 


200 REM FSEUDOPILA DE ESTADO 
210 DIM STRE(200): REM EX ABUNDANTIAM!! 
220 I5=0;REM INDICE PILA 
220 REM 
1007 Figura 6.—bistado del programa, 
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240 REM SONDEO USUARIO 
250 PRINT "QUIERES LA SITUACION?" 
250 PRINT "(<5>=81, <OTROS=N0)" 
270 PRINT: INPUT R$s]F LEFTS(R$,1)<>"S" THEN 310 
280 IF 5W THEN GOSUB 3500:REM ILUSTRA JUGADA ANTERIOR 
290 GOSUB 4000: REM ILUSTRA SITUACION 
300 REN 
310 SW=1:605UB 1000:REM PUSH ESTADO 
320 REM EJECUCION JUGADA 
330 IF DIR=0 THEN 605UB 2000 
340 REM JUGADA EN ORILLA DERECHA 
350 IF DIR=1 THEN SOS5UB 2500 
360 REM JUGADA EN ORILLA IZQUIERDA 
370 1F FIN TREN 6101REH RESUMEN Y FIN 
323 1F FM THEN 6010 380 
380 50SUB 3000: REM VALORACION COMILONA 
390 ¡FONDT C THEN DIR=N0T DIR:G0TO 270 
400 REM C=COMILONA 51 NO -£ INVIERTE RUTA 
419 PRINT "NUMBLE-MUMBLE,. ESTO NOD SE 
SE PUEDE HACER ":PRINT 
220 REM 51 C=1 EXPLICA LA RETIRADA 
430 1F DIR THEN SÍ0 ¿REM EXPLICACION 
PARA ORILLA IZQUIERDA 
440 REM EXPLICACIÓN PARA ORILLA DECHA 
350 PRINT “SI CARGO EN BARCA "¡ANS(PAS) 
450 ANS(M);" SE COME HA "¡ANG(V) 
370 FRINT "EN LA ORILLA IZQUIERDA...” 
480 6070 360 
290 REM 
500 REM DIR=1,0 SER.ORILLA 120. 
310 PRINT "51 DEJO EN LA ORILLA IZQUIERDA" 
520 1F PAS=0 THEN 540 
330 PRINT "CON "¡ANSIPAS);" A BORDO" 
540 PRINT ANS(M)" SE COME A "3AN$(V) 
350 PRINT "EN LA ORILLA IZQUIERDA” 
560 PRINT "POR LO TANTO CAMBIO JUGADA": 
PRINT:PRINT 
570 FOR I=1 TD 1000:NEXT 1:REM PAUSA 


1) Figura 6.—Continuación listado del programa. 


380 IF FM THEN GOSUB 1200:REM POP 

583 1F 15=0 THEN PRINT "FINAL DE JUEBO":END 

590 60TO 330: REM NUEVA JUGADA 

500 REM RESUMEN Y CONCLUSION 

610 PRINT:PRINT:PRINT "TRAYECTO ULTIMADO 
(DAR <RET> PARA EL RESUMEN)":GET R$ 

520 HOME: HTAB 14:PRINT "RESUMIENDO: "sPRINT 

630 PRINT "JUGADA";+HTAR 11:PRINT “SI";:HTAB 19 

540 PRINT "DE LA";:HTAB 20: PRINT “A LA": 

630 PRINT "NUMERO TRANSBORDO": 

660 HTAB 19:PRINT “DRILLA";+HTAB 29:PRINT "ORILLA" 

470 PRINT:5PEED=100 

580 FOR I=2 TO IS:REM SE CEPILLÁ LA PILA 

590 DIR=VAL (MIDSTSTK$(1),9,1)) 

700 PASS=VAL (MIDS(STKS$(1),10,1)) 

710 HTAB S:3PRINT 1-15:HTAB 9:PRINT ANS(PAS); 

720 HTAR 19:1F DIR THEN PRINT "DERECHA IZQUIERDA": 
5070 740 

730 PRINT "IZQUIERDA — DERECHA" 

740 NEXT 1 

750 PRINT:PRINT:PRINT:FOR I=1 TO 20000:NEXT 1 

760 PRINT "....Y VIVIERON FELICES Y CONTENTOS" 

770 PRINT "EN EFECTO,NO SIEMPRE ES FÁCIL * 

780 INVERSE:PRINT:HTAB B:PRINT "SALVAR CABRA Y 
COLIFLOR": NORMAL 

790 HTAB 10: PRINT "1R2LAIIRRARLALIA RAS SPEED=255 

800 PRINT “¿OTRA VUELTA?" INPUT R$ 

810 -1F LEFTS(R$,1)<>"5" THEN END 

820 FIN=0:G05UB 1200:REM POP 

330 5010 330 

999 REM PUSH 

1009 15=15+1 

1010 REM DATOS DE ESTADO EN CADENA 

1020 STK$(ISI="" 

1030 FOR K=0 TO 3 

1040 STK$(15)=STK$ (15) +STRSTODIK)) 

1050 NEXT K 

1060 FOR K=0 TO 3 
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1070 STK$115)=5TX$(1S)+STRI(DI(K)) 
1080 NEXT K 

1090 STK$(15)=STX$(IS)+STRS(DIR) 
1100 STK3(15)=STK$ (15) +5TRS (PAS) 
1110 STK$(15)=STK$(18)+STR$(PD) 

1120 STK$(IS)=STKS$(IS)+5TRS(PI) 

1130 P=0 

1140 RETURN 

1150 REM 

1200 REM PDP 

1210 FOR K= 1 T0 4 

1220 0D(K-1)=VAL (MIDS(STK9(15),K,1)) 
1230 NEXT K 

1240 FOR K= 5 TO B 

1250 DI(K-3)=VAL(MIDS (STK$115),K,1)) 
1260 NEXT K 

1270 DIR=VAL(MIDS(STK$(15),9,1)) 
1280 PAS=VAL (MIDS(STK$(15),10,1)) 
1290 PDO=VAL(MIDS(STK$(1S),14,1)) 
1300 PI=VAL(MIDS(STK$(15),12,1)) 
1310 DIR=NOT DIR:REM' VUELVE SOBRE TUS PASOS 
1340 15=15-1:REM DESINFLA PILA 

1350 P=1 

1360 RETURN 

1990 REM JUGADA EN ORILLA DERECHA 
2000 IF NOT PAS THEN 2030 

2010 ODIPAS)=1:REM DECARGA PASAJERO 
2020 DD(0)=0D(0)+1 

2030 1F P=0 THEN PD=0 

2040 PD=PD+1:REM NUEVO PASAJERO 
2050 FM=PD=4:1F 1F FM TREN RETURN 
2060 IF PD=PI OR OD(PD)=0 THEN 2040 
2070 PAS=PD:0D(FD)=0:0D(0)=0Dt0)-1 
2080 RETURN 

2090 REM 

2490 REM JUGADA EN ORILLA IZQUIERDA 
2500 1F NOT PAS THEN 2530 

2510 OI(PAS)=1:D1(0)=01(0)+1: REM DESCARGO PASAJERO 
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2320 IF 01(0)=3 THEN FIN=1: RETURN 

2330 1F P=0 THEN PI=0:6070 2590 

2540 REM PRUEBA A VOLVER VACIO 

2330 PI=PI+H REM P=1, VUELVE A LLEVAR A ALGUIEN 

2560 FM=P1=4:1F Fit THEN RETURN 

2570 IF Pi=PD OR OI(PI)=0 THEN 2550 

2590 OPI) =01 21 10)=01 00)-1 

2370 PAS=PI 

2600 RETURN 

3010 P=0:REM HIFOTESIS OPTIMISTA 

3020 IF DIR THEN 3100 

3030 REM ANALISIS ORILLA DERECHA 

3040 IF OD(0)%>2 THEN RETURN 

3050 1F 0D(1) AND 0D(3) THEN RETURN 

3060 P=1:REM COMILONA SEGURA 

3070 IF 0D(1) AND 0D(2) THEN J=1:Vs2 

3080 1F 0012) AND 0D(3) THEN J=2:V=3 

3090 RETURN 

3100 REM ANALISIS ORILLA IZQUIERDA 

3110 1F 01103252 THEN RETURN 

3120 IF DI(1) AND 0113) THEN RETURN 

3130 P=1:REM COMILONA SUPER SEGURA 

3140 IF 01(1) AND D1(2) THEN J=1:V=2 

3150 IF 01(2) AND 01(3) THEN J=21Y=3 

3160 RETURN 

3170 REM 

3180 REM 

3990 REM ILUSTRA LA SITUACIÓN COMPLETA 

4000 PRINT "AHORA LAS COSAS ESTAN ASI;" 

4010 PRINT "ORILLA DERECHA: "ys IF 0D(0)=0 
THEN PRINT AN$(0):GDTO 4070 

4020 FOR 1=1 TO 3 

4039 1F 0D(1) TREN PRINT ANS(T)G" Y; 

4040 NEXT 1 

4050 PRINT:IF DIR OR NOT PAS THEN 4070 

4060 PRINT "MAS, AHORA, "¡ANS(PAS):PRINT 

4070 PRINT "ORILLA IZQUIERDA: ";:1F D1(0)=0 
THEN PRINT AN$(0):60TO 4110 
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4080 FOR I=1 T0 3 
4090 1F O1(1) THEN PRINT ANSCID3" "; 
4100 NEXT 1 

4110 PRINT+1F DIR OR NOT PAS THEN 4130 
4120 PRINT "MAS, AHORA, “;ANS(PAS):PRINT 
4130 RETURN 

4140 REM 

4150 REM ALLA AL 
4150 REM %%% FIN DEL PROGRAMA %%x% 
MITO REM ARALAR 


Nivel Figura 6.—Continuación listado del programa. 


Después de las líneas de inicialización 70-230, que damos por 
obvias, especialmente si se consulta la figura 4, aparece el PO- 
LLING DE USUARIO (líneas 240-300), también fácil de entender con 
la ayuda del pequeño flujo homónimo de la figura 5. En ambos se 
aprecia el papel del indicador del primer giro SW: sirve para sal- 
tarse al principio la ilustración de una (aún inexistente) jugada pre- 
cedente. Es también un ejercicio útil y sencillo seguir los mensa- 
jes de las subrutinas 3500 y 4000 y los de justificación de la "reti- 
rada", desdobladas para las dos orillas, en las líneas 430 a 570. El 
planteamiento estructural de los datos resulta particularmente cla- 
ro. Por ejemplo: 


410 PRINT "MUNBLE, MUMBLE, ESTO ND SE PUEDE HACER" 

420 REM Sl P=1 EXPLICA RETIRADA 

420 15 DIR THEN S10:REM EXPLICACION PARA ORILLA 120. 
440 REM EXPLICACION PARA ORILLA DER. 

450 PRINT "SI CARBO EN LA BARCA “:ANSIPAS) 

450 PRINT AN$(M):” SE COME A LA ":ANS(V) 

470 PRINT "EN LA GRILLA DERECHA" 

480 5010 360 


560 PRINT "POR LO TANTO,CAMBIO DE JUGADO EPRINErPRIN 


Los parámetros P (06 1), C y V se generan en la subrutina 
(desdoblada, como de costumbre) VALORACION COMILONA 
(GOSUB 3010). En ella el RETURN es inmediato si no se dejan en 
la orilla dos sujetos o bien si se trata del caso inocuo lobo+ coli- 
flor; en otra situación en C y V se pondrán los números corres- 
pondientes al individuo “comedor” y al "víctima”, Ejemplo: 
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3070 1F 0D(1) AND 0D(2) THEN C=1:4=2 


Es decir, la presencia simultánea del lobo y de la cabra asig- 
na a los animales 1 y 2 los roles C y V respectivamente. 


El meollo del problema 


Las parejas de subrutinas 2000, 2500 (de gestión de la jugada 
en las dos orillas) y 1200 (los conocidos PUSH y POP) son el ver- 
dadero meollo. Las primeras dos se parecen en muchas cosas, por 
ejemplo, que ambas inicialmente se prevé que, en la condición 
NOT PAS, se evite un desembarco inútil pero que se simule in- 
crementando en una unidad OD(0) u OI(0), que contarán los que 
permanecen en tierra, y situando un "1" en OD(PAS) u OIL(PAS). 
Después se intentará con un nuevo pasajero mediante los índices 
PD o Pl, Por ejemplo, en la orilla derecha: 


2040 PD=PD+1;REM NUEVO PASAJERO 
2050 FI=1PD=4)+1F FJ THEN RETURN 
2066 IF PD=PI OR OD(PD)=0 THEN 2040 
2070 PAS=PD:0D(PD)=0:0D10)=9D(0)-1 
2080 RETURN 


El pequeño bucle de las líneas 2040-2060 acaba por fuerza, 
bien con la condición F]="on" (provocada, a su vez, por la llegada 
a PD=4, o sea, por agotar todas las jugadas teóricamente posibles, 
desde “nadie” hasta “coliflor”; es lo mismo FM=Final de movimien- 
to, que F]J=Final de jugada) bien con el descubrimiento de un pa- 
sajero PD comible, que (línea 2070) será embarcado en PAS, anu- 
lando OD(PD) y decrementando el cuenta-pasajeros OD(0). En la 
línea 2060 aparece toda la casuística del "pasajero imposible”, es 
decir, por qué se excluye el volver a transportar a quien se acaba 
de desembarcar (dése cuenta que después del primer minibucle 
es más limpio usar Pl en lugar de PAS) o, simplemente, por qué 
el pasajero en cuestión NO está. En lo que se refiere a la orilla iz- 
quierda, la imperfecta especularidad (o simetría) del código se 
hace evidente de esta forma: 


2500 1F NOT PAS THEN 2530 


2340 REM INTENTA DE VOLVER DE VACIO 


2090 PAS=PI:REM EMBARQUE 
2500 RETURN 
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Llegados a este punto dejaremos que el paciente lector en- 
cuentre en el programa principal el camino por el que se llega a 
la ya citada valoración "comilona” que, por ejemplo, podría supo- 
ner la renuncia al intento de volver de vacío porque la cabra se 
comería la coliflor, 

Ha llegado el momento de ver el PUSH y el POP de la matriz 
STK$ que reemplaza la pila (subrutinas 1000 y 1200). El mecanis- 
mo elegido, no demasiado difícil de rastrear en el listado, consiste 
en introducir con el PUSH y recuperar mediante el POP (con la 
función MID$) una cadena de estado STK$ Esta será resultado de 
la concatenación sucesiva de: OD(0), .., OD(3), OI(0) ,.OI(3), DIR, 
PAS, PD y PL El índice IS es incrementado al principio de la sub- 
rutina de PUSH, mientras que en la de POP la instrucción IS=15-1 
está puesta al final. En otros términos: con el PUSH, antes que nada, 
se crea un nuevo espacio en la matriz STK$ con el POP, por el con- 
trario, se extraen los datos al principio, Observemos, además, que 
la condición I5=0 corresponde a la pila vacía. 

En cuanto al por qué de los ajustes (semi-empíricos) 
DIR=NOT DIR y P=]1 de las líneas 1310 y 1350 se trata de un pe- 
queño rompecabezas que dejamos resolver al lector, un poco por 
pereza y un poco por sadismo. Los más adelantados sabrán que 
una pila implementada mediante una matriz (o vector) se debe 
considerar como una pseudopila (opera con un Índice en vez de 
con un puntero). La elección era obligada en BASIC, pues este len- 
guaje no posee semejante estructura. De todas formas, en nuestro 
caso, su relativa “impureza” nos ha permitido una pequeña venta- 
ja, En efecto, una memoria LIFO no podría recorrerse directamen- 
te, a menos que no se descargara antes. en una matriz. Al llegar 
a la condición FIN “encendida” en la línea 2520 (obviamente equi- 
valente a OI(0)=3) se inserta fácilmente la fase de resumen (línea 
600). La visualización de datos, como se puede deducir y com- 
probar es del tipo siguiente: 


RESUMIENDO; 

JUGADA SE DE LA ALA 
NUMERO TRANSPORTA A — ORILLA ORILLA 

l LA CABRA DERECHA IZQUIERDA 
2 NADIE IZQUIERDA DERECHA 
3 EL LOBO DERECHA IZQUIERDA 


Es muy sencillo darse cuenta de que barriendo la matriz STK$ 
desde 2 hasta 1S, se consigue reconstruir las siete jugadas —me- 
diante MID$ (STK$(1), 10,1) — que están guardadas e, incluso, los di- 


18 


ferentes DIR (para escribir alternativamente "DERECHA" e “IZ- 
QUIERDA”, 

Incluso con una reconstrucción “en frío” (aunque siempre será 
mejor experimentando con el programa, o sus variantes, en un or- 
denador) resulta sencillo seguir los mensajes y reflexiones "en voz 
alta” que hemos examinado, 

En la figura 7, según lo que ya adelantamos, están represen- 
tados los movimientos de la pila; por simplicidad se ha represen- 
tado, para cada nivel; sólo el dato PAS (expresado por su nombre: 
CABRA, COLIFLOR, NADIE, etc. para mayor evidencia). Se notará 
que el primer paso comporta solamente operaciones de push. 


Una pequeña (¿o gran?) paradoja 


Nos queda una curiosidad: ¿consigue nuestro programa ba- 
rrer enteramente el árbol y hallar el camino de las siete jugadas? 
¿Cómo? 

Bien, la respuesta a la primera pregunta es negativa. Quienes 
escribimos tenemos que admitir nuestra sorpresa cuando, des- 
pués de las no pocas penas de la investigación y puesta a punto, 
nos encontramos, DESPUES DE LA PRIMERA BUSQUEDA, con éxi- 
to (como ya se ha visto) frente a la desconcertante visualización 
de unos datos que definfan como vía alternativa una serie de tre- 
ce jugadas. Estas, a la tercera búsqueda, se convertían en dieci- 
nueve e iban aumentando a cada posterior respuesta positiva a 
la pregunta "¿OTRA VUELTA?” 

Tenemos que confesar que, hasta entonces, no habíamos tra- 
zado ningún árbol del aparentemente banal juego. Además de rá- 
pida, esa elección nos pareció, de alguna forma “honrada”: en efec- 
to, queríamos un programa que nos “ayudara” a deshacernos de 
un árbol como si nos fuese desconocido a ambos. Si, con un cierto 
sentido del “después”, nos remitimos a lo expuesto en la figura 1 
y con la ayuda de la figura 7 (que evidencia la secuencia de push 
y pop de éste y del caso anterior) la explicación resulta evidente 
rápidamente: el ordenador, después de haber encontrado la es- 
trategia de siete jugadas "cb, n, 1, cb, co, n, cb" en la segunda prue- 
ba habrá llegado con dos pop al penúltimo nudo "S" y, como al- 
ternaliva a la elección anterior "n”, probará ahora con 1”, después 
de lo cual seguirá sin dificultad hasta el nudo “+” situado al final 
de la figura. Las jugadas se sucederán ahora en el siguiente qr- 
den: cb, n, l, cb, co, 1 (en vez de n), cb, co, 1, cb, co, n, cb, para un 
total de trece viajes. 

El problema, por decirlo así, es doble: 


0 con el programa visto se encontrarán soluciones cada vez 
más largas; él 
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lio] Figura 7.—Movimientos en la pila. Por sencillez se representa sólo 
22% el dato asociado al pasajero cargado en cada caso. En el primer via- 
je, de 7 pasos, se realizan sólo operaciones de PUSH. En el segundo giro 
(d) sólo se señalan, para mayor claridad, las 5 primeras y las 2 últimas con- 
diciones. Después de dos POP nos encontramos un nudo donde, en lugar 
de la jugada hecha en la primera vuelta (NINGUNO), se elige la segunda 
alternativa (LOBO). El resultado son 6 viajes de más con respecto al pri- 
mer caso. El árbol de este simple juego se revela infinito y no es por tanto 
factible representarlo de una forma exhaustiva, 
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0 el mecanismo, sin embargo, es correcto, pues el aparente- 
mente escuálido árbol, en realidad es infinito. 
1 

Pero entonces, sin las oportunas modificacidnes ¿es imposi- 
ble encontrar otra estrategia en siete jugadas? Bueno, ante todo, 
existen' dos soluciones (un poco chapuceras, eso sí). La primera 
consiste en modificar el orden de los pasajeros (coliflor, lobo, ca- 
bra, por ejemplo) y, coherentemente, algunas de las líneas refe- 
rentes a las jugadas y a la valoración de la comilona (si no, el pro- 
grama, imperturbable, nos dirá: "mumble, mumble, la cabra come 
al lobo” u otras frases parecidas). Este artificio permite, que se nos 
haga evidente la otra solución: consiste en añadir otro pop a la lí- 
nea 820 (probarlo para creerlo): 


820 FIMAL=0;GOSUE 1200:505U8 1200+REM DOBLE POP! 


A partir del árbol de la figura 1, puede darse cuenta que este 
brusco truco hace que se salte el nudo S ya comentado y, dado 
que los otros dos de arriba están “saturados”, se hará con ellos un 
POP automático, con lo cual se podrá llegar al nudo D en el que 
el ordenador escogerá, en un segundo momento, coliflor en lugar 
de lobo. A la tercera vuelta, incluso, podrá subir a la raíz y decla- 
rar el final del juego por falta de otras vías optimizadas. 

Estas soluciones, por desgracia, no consiguen satisfacer nues- 
tros escrúpulos lógicos. 

Existe una solución correcta; consiste en descartar vías cuya 
longitud sea mayor que la mínima encontrada anteriormente. 
Como de costumbre, lo dejaremos como ejercicio para los más 
adelantados. 

Terminamos ahora con unas consideraciones sobre las gran- 
des dificultades que se encuentran en el nuevo y fascinante mun- 
do de la llamada Inteligencia Artificial. 

Incluso de este pobre ejemplo puede nacer la atroz duda de 
que sea ciertamente terrible, pero “orgánicamente” imposible, in- 
tentar remediar las contradicciones de fondo entre los mecanis- 
mos generales de deducción y las exigencias de problemas es- 
pecíficos. Hacemos notar a los más perceptivos que, incluso en 
las pequeñas elecciones que hemos hecho anteriormente (como 
la de intentar volver de vacío de la orilla izquierda), no se consi- 
gue entender como se podrían expresar, o "salir por ellas mismas" 
con la magia de lenguajes tipo LISP y Prolog. En suma, un Reso- 
lutor Generalizado que sea al menos un poco eficiente y que evi- 
te (sin necesidad de intervenciones penosas del programador) 
trampas como la de los recorridos infinitos, está hoy en día aún 
en los límites de la Utopia. 

Este tema, empero, se sale de nuestros muy reducidos lími- 

$ 
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tes. Señalando que los investigadores en el campo de la Inteligen- 
cia Artificial han sabido escoger artificios y mecanismos que uti- 
lizan para evitar o, por lo menos, limitar peligros semejantes, de- 
bemos en todos los casos admitir que los desaflos en estas cate- 
gorías de problemas, son fascinantes y estimulan ideas posterio- 
res, ¡Incluso para los que se tienen que apañar con el BASIC! 
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ALGUNOS CONSEJOS SOBRE CUESTIONES 
PRACTICAS 


1 complicado tema de programar correctamen- 
te ha sido desmenuzado hasta ahora siguiendo 
una serie de principios. Estamos seguros de que 
alguien los clasificará como "teóricos", pero no 
quisiéramos iniciar una polémica entre los par- 
tidarios de la Teoría y los de la Práctica; por lo 
tanto, nos limitamos a observar que, para ser teó- 
ricos, los ejemplos que hemos ofrecido han sido 
ricos, concretos y abundantes, Se referían a te- 
mas y problemas de planteamiento con los cuales no pocos de 
los habilísimos seguidores de la informática que encontramos hoy 
en día, se afanan penosamente sin resultado y sin saber, muchas 
veces, ni siquiera por donde empezar. 

Por eso insistimos en que obsesionarse con los algoritmds es 
un ejercicio penoso y frustrante muchas veces, aunque puede dar 
satisfacciones mucho mayores que el ejercicio de la PEEK-POKE- 
manía. Con esta etiqueta nos permitimos ironizar (perdón) sobre 
ciertos fanáticos del ordenador personal que abusan de las útiles 
instrucciones PEEK y POKE del BASIC para acceder al lenguaje 
máquina y a las subrutinas del sistema operativo, Habrán notado 
que nosotros las hemos evitado con el mayor cuidado, con el fin 
de obtener la máxima "transportabilidad”, es decir, la mayor equi- 
valencia posible entre programas para un ordenador y otro. De- 
bemos notar que en cuanto tocamos el terreno pragmático nos da- 
mos de cara con las contradicciones más atroces: en efecto, la 
transportabilidad es una exigencia práctica, pero también lo es 
aprovechar un sistema al máximo de sus potencialidades y, sin 
embargo, ambas son opuestas... 

Es necesario reconocer que, desde un punto de vista opera- 
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tivo, se han dejado al margen bastantes cosas pertenecientes a la 
realidad de las máquinas y de los problemas de todos los días. 
Pero también se han dicho varias cosas, en modo indirecto o im- 
plícito, no sólo en este libro sino también en el de la programa- 
ción estructurada (BBI n.2 8); por no hablar de los volúmenes so- 
bre el lenguaje BASIC (BBI n2 5, 6 y 7) a los cuales les remitimos 
para minucias tales como el uso de GET, como alternativa a la IN- 
PUT (habrán notado que, por pereza, la instrucción GET no la he- 
mos utilizado nunca aquí... ). Pero hay otros problemas prácticos 
que se debertan afrontar... en línea teórica (¡NO es una finura, sino 
una contradicción real en los terminos!). Aludimos, por lo menos, 
a dos grandes categorías: 


0 cómo organizar un adecuado interface con el usuario, o sea, 
un "menú” apropiado para definir las opciones a quien vaya 
a utilizarlo, que resulte claro, sencillo y, como dicen los 
americanos, "fool proof” (a prueba de tontos); 

O cómo hacer más rápido y eficiente un programa, especial- 
mente en relación al microsistema que se posee y al len- 
guaje utilizado. 


Ambos problemas se agravan en el caso de programas muy 
largos, que buscan la seriedad multiplicando y complicando los 
dilemas. Estos nos remiten a una cuestión delicada que, a grandes 
rasgos, se expresa como sigue: 

¿Hasta qué punto es conveniente la adopción de "trucos” que, 
cón un uso astuto de la máquina y de sus peculiaridades especí- 
ficas la aprovechen de la mejor manera? 

Una contraindicación —la de la transportabilidad— la hemos 
visto ya. Se pueden dar sugerencias y consejos útiles con la fina- 
lidad de un llegar a un compromiso razonable y válido en casi to- 
dos los ambientes y sistemas. 

Por otra parte, la mayor dificultad reside precisamente en pro- 
porcionar ejemplos concretos. 

Antes de pasar a desmenuzar la segunda categoría de pro- 
blemas, vamos a permitimos dar un par de apuntes referentes a 
la primera categoría (interface con el usuario), apuntes que cada 
uno deberá acoplar a su particular experiencia personal a través 
de la práctica del "prueba y vuelve a probar”, que ningún tratado 
o manual pueden reemplazar. 

En el caso de un menú de elecciones múltiples puede resul- 
lar más claro para el interlocutor del programa que, en lugar dle 
encontrarse delante de los habituales numeritos: 


1, Editar 2. Imprimir 
3. Transferir 4, Cargar 
5, Terminar O ria 
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encuentre, en cambio, como propuesta las lelras iniciales de las 


diferentes opciones, o sea, algo así como: 
E = Editar 1 = Imprimir 
T = Transferir (al disco) C = Cargar (desde disco) 
A = Abandonar 2 


(dénse cuenta de los ajustes de sinónimos necesarios para dife- 
renciar las iniciales de las opciones). 

La ventaja de las órdenes nemónicas es que permiten que el 
usuario recuerde fácilmente el código que corresponde a cada 
opción sin necesidad de recurrir al mensaje del menú. Se imple- 
mentan muy bien en lenguajes que, como el Pascal, ofrecen la es- 
tructura CASE OF. ¿Y en el BASIC? Aquí, la estructura casi equi- 
valente ON..COSUB es un poco menos potente, dado que trabaja 
cómodamente con números, pero no acepta letras. Se puede re- 
mediar mediante un pequeño vector que contenga las diferentes 
inciales. Supongamos que lo llamamos INIC$ y que R$ contiene la 
inicial elegida por el usuario; la respuesta del ordenador podría 
funcionar mediante las líneas BASIC que siguen: 


300 ENCU=FALSO 

310 FOR I=1 TO NUNSEL 

320 1F Ré=INICA(I) THEN ERCU=YERDADERO:X=1: I=NUNGPE 
330 NEXT 1 

340 1F NOT ENCU THEN GOTO £ 

350 DN E G05U2 RS, Tioncoos 


Es obvio que, r, s, t, etc, serán los números de línea de las di- 
ferentes subrutinas de respuesta, mientras que x será el de la lí- 
nea que contiene el INPUT, Así hemos satisfecho (naturalmente 
es un ejemplo muy sencillo) el principio de reducir las posibili- 
dades de error por parte del usuario. En programas más largos 
y/o importantes será oportuno prever, también, barreras defensi- 
vas contra las más extrañas faltas de atención (apretar teclas crÍ- 
ticas, hacer maniobras que hagan volver al sistema operativo, etc.), 
posibles siempre en el transcurso de sesiones largas y fatigosas. 
Afortunadamente, en todos los dialectos BASIC existe la cómoda 
instrucción ON ERROR GOSUB (o GOTO) que pone remedio a mu- 
chos de tales desgracias (para aprender sus diferentes modalida- 
des de uso les remitimos a los manuales de los ordenadores y a 
los volúmenes dedicados a este lenguaje, donde se encuentran 
descritos adecuadamente). 

A propósito de teclas y menús debemos hacerles otra reco- 
mendación referente al caso de programas en los que se encuen- 
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tran varios menús y submenús, o sea, a aquellos organizados "por 
árbol”: intente adoptar siempre la misma semántica en todas las 
circunstancias, evitando que en un menú Imprimir se exprese con 
"' mientras que en otro se exprese con la letra "P" (de Print) o 
con el número "2", Otro consejo: utilice las teclas combinadas con 
la de Control y, para las condiciones de “quit” (abandono de pro- 
gramas), usen sistemáticamente la tecla de Escape. 

Especialmente en programas de cálculo científico y técnico 
será una buena norma introducir controles de congruencia de va- 
riables y orden de magnitudes, pero ténga mucho cuidado con 
las llamadas "modalidades de restablecimiento”, Veamos un ejem- 
plo tonto, que es más caricaturesco: 


1500 IF DATOCINF DE DATGISUE THEN END 


Aquí, si el desafortunado usuario se equivoca introduciendo 
un DATO que se encuentra fuera de los límites definidos por INF 
y SUB se le penaliza gravemente con la paralización del progra- 
ma y, lo que es más grave, no sólo con la pérdida de los datos 
generales por el programa, sino también con la de todos los in- 
troducidos por él hasta el momento. 

¿Se trata de sadismo? Quizá, pero nos estamos refiriendo a un 
caso real (naturalmente la condición de paralización surgía de una 
forma más indirecta y fastidiosa) un señor compró un lote de pro- 
gramas de cálculos de ingeniería y, dándose cuenta de que había 
algo raro, rehusó efectuar el pago hasta que el problema no se hu- 
biese solucionado; acabaron en Magistratura. No sabemos como 
se habrá resuelto, pero si estuviéramos en el lugar del juez hubié- 
ramos dado toda la razón al comprador. 

Acalamos recomendándoles que no tomen demasiado en 
cuenta los oropeles escenográficos. Aunque a veces no está de 
más un mínimo de videografía y algún efecto sonoro agradable, 
sobre todo para llamar la atención en el momento adecuado, a lo 
que se debe de prestar la máxima atención es a los posibles de- 
fectos, Sólo la experiencia enseña a corregirlos y, posiblemente, 
a prevenirlos, 

En los próximos dos capítulos trataremos bastante ampliamen- 
le los problemas de velocidad y eficiencia que plaritea el BASIC 
(el lenguaje-caracoi). Como resulta inevitable al tener que atron- 
lar un tema muy concreto, debemos hacer referencia a un orde- 
nador personal en carne y hueso (perdón, en plástico y silicio).-La 
elección, por sus prestaciones, popularidad y difusión, ha recaido 
en el ordenador personal Commodore 64, llamado también C64, 
A grandes rasgos el tratamiento es válido para la gran mayoría 
de los ordenadores del mercado; por ejemplo, los problemas de 
la "información inservible" en las cadenas se pueden encontrar, 
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prácticamente sin cambios, en cualquier ordenador. Pasando las 
referencias al mapa de memoria de su propio microordenador 
será fácil para todos reciclar todos los conceptos (generalmente 
basta con adaptar las direcciones de los PEEK y POKE a aquellas 
en vigor en nuestro sistema), 
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EL BASIC, UN LENGUAJE-CARACOL 


Interpretación: una ventaja que sale cara 


a enorme popularidad del lenguaje BASIC en el 
mundo de los pequeños sistemas (ordenadores 
domésticos y personales) está ligada sobre todo 
al hecho de ser, casi siempre, un lenguaje inter- 
pretado, Este adjetivo, como bien saben ustedes, 
quiere decir que cada instrucción —IF, GOTO, 
sentencias aritméticas, etc.— es traducida direc- 
tamente a lenguaje máquina (de ahora en ade- 
Ñ lante escribiremos 1. m.) en el momento de la 
Pon ución ("run time”) cada vez que esta se lleva a cabo, sin ne- 
cesidad de compilaciones u otros procesos preliminares 
Aparentemente el ordenador se comporta como una máqui- 
na BASIC: comprende y ejecuta de manera inmediata órdenes en 
lenguaje evolucionado, pero en realidad, cada vez que lo hace 
realiza antes la traducción, aunque sin dejar rastro al final. Desde 
el punto de vista de la interacción hombre-máquina se trata, sin 
duda, de una ventaja notable, porque el sistema se puede mane- 
jar directamente en un código simbólico (de alto nivel, cercano 
al lenguaje humano) y no surgen los inconvenientes (y la pérdida 
de tiempo) que trae consigo la intervención de un programa com- 
pilador y el hecho de tener dos versiones de un mismo programa 
(desde un punto de vista lógico-funcional): el programa "fuente” 
(source program, el que podemos editar y listar), y el programa 
"objeto” (object program, el que está en im. traducido por el com- 
pilador al código máquina del microprocesador que constituye la 
CPU del sistema). 
Con el BASIC interpretado se ejecutan más fácilmente, entre 
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otras cosas: controles, añadidos, modificaciones (en cualquier mo- 
mento) y la búsqueda y eliminación de errores resulta más sen- 
cilla y rápida. 

Sin embargo esta ventaja se ve fuertemente penalizada, por- 
que se paga en términos de disminución de la velocidad de eje- 
cución. Puede suceder, en efecto, que el tiempo de interpretación 
(que, repetimos, se invierte todas las veces que se ejecuta cada 
instrucción y no de una vez por todas como sucede con los len- 
guajes compilados) resulte mucho mayor que el corespondiente 
á su ejecución efectiva. El inconveniente existe, incluso, en las ins- 
trucciones más sencillas, 

Pero la popularidad del BASIC también reside, en el tratamien- 
to de las variables y en el manejo de la memoria intema: el pro- 
gramador no se tiene que preocupar para nada de su situación, 
ya que se halla enteramente bajo la supervisión del intérprete, 
Una vez más, se obtiene una prestación muy cómoda pero que su- 
pone ralentizar el proceso. En general, no estamos demasiado dis- 
puestos a renunciar a estas ventajas, por lo menos dentro del ám- 
bito de las auténticas aplicaciones de los ordenadores domésticos. 


Afortunadamente, esta lentitud, derivada del proceso inlerpre- 
tativo, se puede obviar por lo menos en parte, con una serie de 
pequeños reciirsos, cuya descrpción es nuestro próximo objeti- 


vo. Uno muy habitual es la inserción de pequeñas rutinas de lm. 
dentro de los mismos programas BASIC; los códigos correspon- 
dientes a la posición de memoria inicial se introducen mediante 
POKE en una determinada situación de memoria, para ser recu- 
perados en el momento oportuno con instrucciones específicas, 
como la USR y la SYS del C64, la CALL de otros microsistemas, 
etc, que provocan el salto a la subrutina en lm, Esta técnica sus- 
pende momentáneamente la interpretación y pasa a la ejecución 
directa en lm, permitiendo así aumentar la velocidad en ciertos 
pases críticos de un programa. No nos vamos a extender sobre 
ella por dos buenos motivos: 


O está abundamentemente descrita en todos los manuales y 
libros; 

0 anulan la transportabilidad de un programa: entre máqui- 
nas que adoptan el mismo dialecto BASIC pero que se ba- 
san en CPU difeentes es imposible la transferibilidad de 
programas con SYS o CALL, mientras que con CPU iguales 
pero con ordenadores “diseñados” de forma diferente: se 
puede conseguir sólo con modificaciones radicales. 


Nuestro objetivo es descubrir, sobre todo de forma experi- 
mental, todo lo que se puede hacer permaneciendo dentro del BA- 
SIG vulgar y (casi) estándar: las ventajas en términos de veloci- 
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dad y, de alguna manera, de eficiencia serán pequeñas si las to- 
mamos de una en una, pero cuando están en juego programas bas- 
tante largos y/o bucles con numerosas iteraciones, el tiempo que 
se ha ahorrado puede llegar a ser importante. 

Tanto los inconvenientes como los remedios sugeridos, se 
ilustrarán cuando entremos en detalles sobre el mecanismo de la 
interpretación y sobre los criterios de memorización de las varia- 
bles en la memoria RAM disponible, En cuanto a las pruebas que, 
por supuesto, les invitamos a realizar directamente, serán ejecu- 
tadas por nosotros en un sistema Commodore 64, pero todos po- 
drán hacerlas, con fáciles modificaciones, en el ordenador que ten- 
gan en casa, 

En relación con los resultados de las pruebas que hemos lle- 
vado a cabo, en líneas generales se pueden considerar válidos 
(naturalmente para igual frecuencia del reloj interno) para todas 
las máquinas que utilizan como CPU el microprocesador 6502 y 
derivados (el 6510 en el caso del C64). Quien haga las pruebas 
en el ordenador Commodore VIC 20 tendrá la agradable sorpre- 
sa de encontrarse con tiempos inferiores a los del más dotado 
C64, Esto no debe sorprender mucho si se piensa en el duro tra- 
bajo que debe realizar el chip de control de vídeo del C64 que, 
si por una parte permite visualizaciones más refinadas, por otra in- 
terfiere constantemente con el trabajo de la CPU principal 6510, 
haciendo más lentos los accesos a la memoria y los tiempos de 
ejecución de algunas instrucciones, En suma, para una utilización 
puramente de cálculo, el modesto VIC 20 gana en velocidad a su 
hermano mayor, mejor dotado. 

Para hacer comparaciones entre la velocidad de distintos pro- 
gramas no hay nada mejor que usar el reloj interno del C64; esto 
mismo vale para otras máquinas que posean también reloj inter- 
no, en otros casos habrá que arreglarse con un cronómetro exter- 
no. En el Commodore 64 el valor del tiempo se puede encontrar 
utilizando dos variables especiales (reservadas): TI y TIf la pri- 
mera numérica y la segunda de tipo cadena (alflanumérica). Dado 
que Tl$ tiene una resolución bastante escasa (un segundo), no se 
adapta a nuestros fines, En cambio TI puede considerarse sufi- 
cientemente precisa, siendo capaz de discernir hasta 1/60 de se- 
gundo, o sea a 16,6 milésimas de segundo. La verdad es que los 
tiempos de ejecución de las instrucciones BASIC son inferiores, 
pero ésto no tiene una importancia excesiva, en cuanto que lo que 
pretendemos no es tanto el medir con exactitud la duración, sino 
comparar los resultados obtenidos con distintas técnicas de pro- 
gramación, Ante todo trataremos que el número de instrucciones 
ejecutables sea suficientemente elevado, lo que contribuirá a 
acentuar las diferencias, haciéndolas más apreciables. 

Recordamos que la variable reservada "TI" no puede ser ini- 
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cializada desde el software. Pero no importa, será suficiente con 
copiar al principio su valor en una variable auxiliar (o depósito, 
como se quiera decir), al final, el valor del tiempo transcurrido lo 
obtendremos como diferencia entre el valor final de Tl y el guar- 
dado inicialmente. 


Memoria necesaria para el programa BASIC 


Un aspecto importante que hay que tener en consideración 
si se quiere utilizar de la mejor forma posible un ordenador es, sin 
duda, la cantidad de memoria necesaria para que un programa 
pueda trabajar. Utilizando el BASIC interpretado se deberá tener 
en cuenta tanto el espacio de RAM ocupado por el código (el ver- 
dadero y propio programa) como el utilizado por las variables en 
juego. Aparentemente, un programa BASIC ocupa tanto espacio 
como número de caracteres componen sus líneas; en otros térmi- 
nos, pecisa tantos bytes como teclas de caracteres se hayan uti- 
lizado en la redacción del programa. En realidad las cosas discu- 
rren de forma un poco distinta. 

Veamos cómo y por qué. Para mayor comodidad del lector, 
ilustramos en la figura 1 el mapa de memoria del C64, junto a la 
del VIC 20, con particular atención a la utilización que hace el BA- 
SIC de las primeras 256 posiciones de memoria (la llamada pági- 
na cero). Para más detalles les remitimos al apéndice Q del ma- 
nual de instrucciones del C64, 

Nos daremos cuenta bastante pronto de que es fácil verificar 
cuánta mernoría es ulilizada y cómo. Una vez encendido el orde- 
nador escriba: 


PRINT PEEK(44)*256+PEEK(45) 


La respuesta será 2049, es decir, la dirección en la cual la pri- 
mera instrucción del programa BASIC es introducido. En otros or- 
denadores personales las localizaciones de la página cero que 
apuntan a este lugar de entrada, no serán 44 y 45, pero el proceso 
será el mismo; sólo necesitamos saber que son dos (44 y 45 aquí) 
los bytes necesarios para contener el valor de la dirección, en uno 
(44) se guarda la parte más significativa (256 voces más) y en el 
otro (45) la menor, 

Después, sin hacer nada más, podemos pedir la dirección de 
final del programa haciendo: : 


PRINT PEEK(46)*256+PEEK(47) 


(A los bytes 46 y 47 se aplican los mismos comentarios realizados 
antes con 44 y 45). 
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POSICION 


DEC 


Registro dirección datos del 6510 


Registro 8 bits de entrada/salida del 6510 


0028-0029 38 +42 Area usada para la multiplicación real 


002A 


0028 Puntero principio del texto BASIC 


002D Puntero final programa y principio variables 
002É 
002F Puntero principio vectores (matrices) 
0030 
0031 Puntero final vectores (+1) 
0032 
0033 Puntero principio variables cadena 
0034 
0035 Puntero final variables cadena 
0036 
0037 
0038 
136+140 0088 +008C 
ME 00C6 Número de caracteres en el buffer del teclado (cola) 


631 +640 0277 +0280 Cola del buffer del teciado (F1FO) 


650 028A Indicador programable de repetición para las teclas 
(0 = cursor, 128 = todas) 


028D Indicador tecla SHIFT/CTRL/ 
828-1019 033C +03FB Buffer de E/S de ta cinta 


1020-1023 | 0SFC= 03 


1024 + 2023 0400+07E7 Area de memoria de pantalla (1024 bytes) 
matriz pantalla (25 líneas x 40 columnas) 


2040-2047 07FB+07FF Punteros a los datos de animación 


S 
S 


Puntero en el límite de la memoria para programas 
BASIC 


Aquí las correspondientes localizaciones 
son 139+143 


Valor de la tecla pulsada actualmente y 
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POSICION 
DEC HEX 


2048 + 40959 0800-+9FFF Area RAM normal de los programas BASIC, 
con punteros es posible “insertar” en el área 
(32768 -40959) cartuchos ROM (8 k) 


4096049151 AO00+BFFF 8 k ROM del intérprete BASIC (es posible usar 
RAM aquí para utilizarla con lenguaje máquina) 
53248 + 54271 :D000+D3FF Controlador interface pantalla (VIC 1H) MOS 6566 
ae 


54272 + 55295 D400-D7FF Interface de sonido (SID) MOS 6581 3 osciladores 
B independientes y programables con 4 clases 
de ondas, 9 octavas, etc. 


Figura 1.—Mapa de memoria del Commodore 64, El texto hace re- 

ferencia a las posiciones de la página cero, Para el ordenador per- 
sonal VIC20 entas localizaciones son bastante parecidas (las diferencias 
se encuentran sobre todo en las direcciones más elevadas, por el distinto 
planteamiento del C64: gestión del sonido, de las animaciones, de los ban- 
cos de memoria RAM/ROM, etc.). Por lo que respecta a la organización de 
los tipos de datos (enteros, reales, de cadena) y su distribución en la me- 
moria, el sistema ilustrado, referido al popular C64, es parecido, con po- 
cos cambios, a los que usan la mayoría de los ordenadores personales, 


Lo lógico sería esperar el mismo número de antes, ya que to- 
davía no hemos introducido ninguna línea BASIC. En cambio ob- 
tenemos el valor 2051. No se asusten, no ocurre nada extraño; en 
efecto, dos bytes están comprometidos desde el principio por el 
BASIC para guardar el valor binario cero, indicador del final del 
programa (00 00 = final del programa). 

Si ahora introducimos una simple línea podemos comprobar 
inmediatamente cuanta memoria ocupa: 


1 REX ABCDEFGHIJK 
La respuesta obtenida con el PRINT anterior es 2067, que co- 
rresponde a 18 bytes (2067-2049)ocupados desde el principio, y 
no a 15 como se podría suponer. Intentemos entonces visualizar 
el contenido de todas estas posiciones ocupadas: 
FDR K=2049 TO 2087: PRINT CHRSIPEERIRO O; NEXT K 
La respuesta es: 
ARCDEFGH2JK 


92 


es decir, en apariencia sólo hay once caracteres. ¿Cómo es esto? 
Evidentemente, los otros 7 contienen valores binarios no visuali- 
zables en la pantalla. Haciendo la prueba con otros tipos de ins- 
trucciones la situación no cambia mucho, En particular, los nom- 
bres de las instrucciones (como REM) y los números de línea pa- 
recen haber desaparecido o ser sustituidos por extraños caracte- 
res gráficos. La explicación de este aparente misterio reside en la 
forma en la que el intérprete memoriza el programa. 

Cada una de las líneas del programa se representa en la me- 
moria con la estructura que sigue (ver figura 2): 


O 2 bytes que contienen la dirección de la siguiente instruc- 
ción; 

O 2 bytes que contienen el número de línea; 

O un byte para cada instrucción BASIC, representada según 
un código compacto que algunos llaman “token”; 

O N bytes tal y como hayan sido escritos desde el teclado; 

O 2 bytes conteniendo ceros para señalar el final del progra- 
ma, después de la última instrucción. 


Se explican así los siete bytes aparentemente desaparecidos 
que hemos visto anteriormente. Se puede concluir, pues, que en 
principio la memoria que ocupa cualquier programa está dada 
por el número de caracteres tecleados (contabilizando, sin embar- 


2049/2050 205120522063 
1 m4! 


K Final * 
instrucción 


Dirección e ñ : 
próxima instrucción pago o Rem A 


Final 
instrucción 


1 ina! programa 


Final 
(última instrucción) 


Figura 2.—Estructura y sucesión de las instrucciones BASIC. Para ma- 

yor comodidad se han suprimido los contenidos de las distintas po- 
siciones, por ejemplo, el “token” ASCI! del código REM, fácil de encontrar 
en el manual C64 (respecto al texto, faltan las letras “I" y “J") 
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go, un solo byte para los códigos operalivos tipo REM, INPUT, 
DATA, +, —, *, etc,.), añadiendo 4 bytes por cada línea y contando 
los dos bytes finales de clausura. 

Por consiguiente, si tiene problemas de espacio, puede inten- 
tar: 


0 compactar varias líneas en una sola, ganando así cada vez 
3 bytes (uno es siempre necesario para los dos puntos de 
separación); 
O eliminar todos los espacios de geparación imútiles 
Debe de quedar bien claro que esta técnica, indispensable 
con programas muy largos destinados a ordenadores domésticos 
con no mucha memoria (por ejemplo el VIC 20 sin expansiones), 
no es compatible con exigencias de claridad, Hay además algu- 
nos dialectos que limitan su aplicación; por ejemplo, en el BASIC 
Microsoft los espacios de separación entre comandos y operado- 
res son obligatorios (escribiendo PRINT A$ se obtiene de la má- 
quina un “syntax error”). 


Espacio para las variables, cadenas y matrices 


Una elección inteligente de la naturaleza y número de las va 
riables a, utilizar proporciona también resultados sorprendentes. 
Siempre con el ordenador recién encendido, examinemos el prin- 
cipio y el fin del área destinada a las variables, situada justo des- 
pués del final del programa. Repitiendo: 


PRINT PEEK(46)*256+PEEK(45) 


la respuesta que se obtiene es 2051, dado que en este momento 
no hay presente ningún programa, y con: 


PRINT PEEK(48)*256+PEEK(47) 


la respuesta sigue siendo 2051, ya que no se ha definido aún nin- 
guna variable, 
Introduzcamos ahora: 


AA=1 
PRINT PEEK(48)*256+PEEK(47) ' 


Esta vez se obtendrá el valor 2058. Si introducimos con 
X=12345678901 tendremos que el puntero de final de área de va- 
riables alcanza el valor 2065; la inmediata conclusión es que una 


94 


variable numérica, cualquiera que sea el valor que se le atribuya, 
ocupa siempre 7 bytes de RAM. 

El motivo de esto reside en el hecho de que el BASIC, para 
este tipo de datos, adopta la notación de coma flotante (floating 
point), con nueve cifras significativas y exponente; por eso son ne- 
cesarios 5 bytes para contener esas 9 cifras más signo y expo- 
nente, a los cuales se deberán añadir dos bytes para el nombre 
simbólico (en otros dialectos BASIC en los que el nombre de las 
variables puede estar formado por más de dos caracteres ASCH 
esta regla, por otra parte muy común en los ordenadores más 
usuales, no vale). Si, como en el último caso, éste está formado por 
una sola letra el intérprete añade, por su cuenta y riesgo, un es- 
pacio (blank). En consecuencia el único ahorro que se consigue 
usando nombres de un carácter reside en la longitud del progra- 
ma. 

Con la orden CLR se anulan todas las variables definidas, lo 
cual es fácilmente comprobable; el puntero de final de variables 
es llevado hasta 2051. Un consejo práctico: llevar hacia adelante 


artificialmente este puntero de final de variables (mediante una or- 
den POKE) puede ser un método astuto y sencillo para recuperar 
los datos perdidos inadvertidamente 


El hecho de que la zona reservada a las variables empiece 
inmediatamente después del final del programa explica porqué, 
añadiendo instrucciones, los valores de las primeras variables son 
destruidos irremediablemente y cómo, con la técnica de "over- 
lay” (segmentación de programas que no pueden estar conteni- 
dos enteramente en la RAM disponible) se pueden cargar sólo 
programas más cortos que el primero de la cadena. 

La versión BASIC adoptada por el C64 no reserva un área es- 
pecífica para las variables enteras (de tipo “integer”) y, por lo tan- 
to, también estas ocupan siete bytes. Es una verdadera pena, pues- 
to que su límite de amplitud (no superior al valor 65535, máximo 
alcanzable con 16 bits en la notación binaria adoptada) hubiera 
permitido la utilización de sólo cuatro bytes: dos para el nombre 
y dos para el valor. Probablemente, la buena disponibilidad de 
memoria ha inducido a los proyectistas a no cuidar este aspecto, 
presente en las otras máquinas de Commodore, 

En cuanto a las variables alfanuméricas (cadenas) también és- 
tas se memorizan como las anteriores, y así ocupan siete bytes en 
lugar de cinco, que serían suficientes: además del nombre (dos 
bytes) se memoriza la longitud (un byte) y la dirección de co- 
mienzo de la cadena (otros dos bytes). En efecto, la longitud de 
las cadenas es variable e imprevisible a priori, por lo que no sería 
posible memorizarlas directamente al lado del nombre, so pena 
de continuos desplazamientos de las variables subsiguientes en 
caso de cambiar el contenido de la cadena. El área en la que son 
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memorizados los valores de las cadenas comienza al final de la 
memoria disponible y se dirige hacia la ya ocupada. Este tipo de 
organización da lugar a una gestión eficiente y veloz, pero tam- 
poco es inmune a todos los problemas, como veremos más ade- 
lante, 

Ahora, alguien estará haciéndose esta inquietante pregunta: 
¿cómo distingue el BASIC los diferentes tipos de variables, dado 
que estas se memorizan todas juntas, puestas simplemente en el 
orden temporal de definición? Elemental: el nombre de las varia- 
bles numéricas se memoriza con el, correspondiente código 
ASCII, mientras que en el caso de las variables enteras se añade 
128 a la primera letra y, en el de las cadenas, se añade 128 a la 
segunda letra. Dado que el código ASCII sólo representa caracte- 
res de código 0-127) (0-01111111 en binario) el añadir 128 a cual- 
quier carácter ASCII equivale a poner “a 1” su bit más significati- 
vo (el situado más a la izquierda). Por ejemplo, el nombre PE (0101 
0000 0100 0101 en binario) quedará memorizado como: 


— en punto flotante. 

0101 0000 0100 0101 
— entera: 

1101 0000 0100 0101 
— Cadena: 

0101 0000 1100 0101 


El método es sencillo pero poco rápido, ya que la búsqueda 
de cada una es entorpecida por la presencia de todas las demás 
y no sólo por las del mismo tipo. En la figura 3 está ilustrada la 
organización de las variables sencillas de los tres tipos (coma flo- 
tante, entera y alfanumérica). 

Inmediatamente después del final de las variables sencillas 
comienza la zona de los vectores (arrays). Para comprobar expe- 
rimentalmente su colocación (e incluso antes de ver la figura 4, 
que ilustra la estructura de su organización) convendrá esta vez 
actuar de manera muy diferente a como lo hemos venido hacien- 
do, valiéndonos de un sencillo programa, útil para cada tipo de 
vector, Este es: 


1 CLR:REM LIMPIEZA DE LA MEMORIA DE VARIABLES 

10 TA=0:FA=0:REM PREDEFINICION VARIABLES DE TRABAJO 
20 DIM RRES00): REM ARRAY DEFINIDO 
30 IA=PEEK(48)1235+PEEX (47):REX PRINCIPIO AREA ARRAY 
40 FASPEEK(SO)1256+PEEK (49): REM FINAL AREA ARRAY 
50 PRINT FA,IA,FA-IA 
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Coma flotante (real) 


—> Yf—_—_ 
nombre valor representado 
ASCII en coma flotante 


Alfanumérica 


Nombre o ngitud” 


Entera 


—> Ah— 
Nombre Valor 
en binario 


o Figura 3.—Organización de las variables (al final del programa BA- 
SIC). En el caso de las cadenas, al nombre le siguen la longitud y 
un puntero que indica la dirección en la que la cadena tiene su principio. 
En el C64 Jos tres tipos ocupan 7 bytes (en otros dialectos de BASIC no 
siempre sucede esto). 


Coma flotante 


— e _—— —_—— 
Nombra ng Libre Ns elo Primer  * Otros 
! matriz (DIM+1) elemento elementos 
Alfanumérica entera . Direc. 9. Direc. 


el > > al > «- + 
Nombre Coeongitud Libre  N.9 elem. Puntero 2.9 elem. 
matriz (DIM +1) al 1." elem. 


entera 


ombre” Longitud. Libie No elem 1.“ elemo 2 cele. 
matriz (DIM+1) 


EN Figura 4—Organización de los distintos tipos de matrices. 
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Una vez ejecutado, el programa escribe como tercer dato la 
memoria ocupada por la matriz, igual en este caso a 1512 bytes, 
Siendo los elementos en juego 301 (recuerden que también exis- 
te el elemento de Índice cero) se deduce, sin demasiada dificul- 
tad, que cada uno de ellos emplea cinco bytes, como es necesa- 
rio para una variable en coma flotante, más siete bytes de cabe- 
cera que contienen.el nombre, el número de elementos y otras in- 
formaciones para uso del intérprete, 

Cambiando ahora en la línea 20 "RR" por "RR%", que indica ma- 
trices de números enteros, el resultado será 609. Es decir: sin cam- 
biar el número de elementos (301) cada uno de estos ocupa aho- 
ra sólo dos bytes, mientras quedan por añadir al total los siete 
bytes del encabezamiento común. En otros términos, esto signifi- 
ca que la utilización de variables de tipo entero supone un ahorro 

ansiderable de memona 

Definiendo una matriz alflanumérica, poniendo en la línea 20 
RR$(300), el resultado visualizado es 910, lo que significa que cada 
elemento de este tipo de matriz ocupa sólo tres bytes. El resulta- 
do, sobre todo teniendo en cuenta el hecho de que una cadena 
puede tener una longitud de hasta 256 caracteres, puede parecer 
paradójico, pero sólo a las personas poco atentas. Incluso estas no 
tendrán dificultad en comprender que, también en el caso de las 
matrices, las cadenas se encuentran en la parte alta de la memo- 
ria, mientras que en el espacio del vector cada elemento indica 
tan solo la longitud (un byte, por lo cual la longitud máxima es de 
256 caracteres) y el puntero que indica comienzo de la cadena 
afectiva. De esta forma, con las cadenas, la ocupación de RAM cre- 
ce proporcionalmente según a cada elemento —vacío en el mo- 
mento del DIM inicial— se le va asociando una Cadena real (no 
vacía). 

Concluyendo, si puede trabajar con números enteros inferio- 
res a 65533 conviene, sin duda, adoptar matrices de tipo entero, 
pudiendo así casi triplicar la memoria disponible para datos. En 
cambio —por lo menos en el caso del C64, como ya se ha visto— 
no hay ventaja alguna, en términos de espacio ganado, al usar va- 
riables enteras en lugar de las de coma flotante (en otras versio- 
nes BASIC, sin embargo, sí las hay). 


Memoria y velocidad 


Para comprobar experimentalmente cómo se las a! =gla el 
BASIC con las cadenas y, en particular, cómo influye su longitud 
en los tiempos de ejecución, les proponemos usar el programa si- 
guiente con cronómetro incorporado. En él intercambiaremos tres 
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mil veces el contenido de dos cadenas entre sí, recurriendo a una 
cadena intermedia: 


1 CLR 
10 A$="PRIMERA CADENA": B$="SEGUNDA CADENA": C$=" ” 
20 TD=T1 
30 FOR K=0 TO 2000 
40 C$=B$ 
59 B$=A$ 
50 A$=C$ 
7O NEXT K 
80 PRINT T1-TD 


Se obtiene un valor, correspondiente a múltiplos de 1/60 se- 
gundos (sesentavos), igual a 965. Probemos a reducir la longitud 
An las variables, haciendo, en la línea 10, A$="PRIMERA” y B$ “SE- 
GUNDA” 


Antes de proceder a la modificación y a la nueva medida, res- 
pondan: ¿cambiará la duración del bucle? La respuesta es nega- 
tiva, contrariamente a lo que podrían imaginarse, pero la explica- 
ción de esta paradoja no es demasiado difícil. En efecto, bastará 
reflexionar nuevamente sobre la manera en que el intérprete BA- 
SIC sitúa las variables alfanuméricas; en el área reservada a tales 
variables no está colocado el contenido de la cadena, sino sólo su 
nombre, longitud y dirección a partir de la cual está escrita la ca- 
dena, Cambiar los datos alfanuméricos, por lo tanto, simplemente 
significa cambiar tales longitudes y direcciones (punteros), en to- 
tal seis bytes, sin necesidad de ninguna otra operación, Es evi- 
dente que para este procedimiento el tiempo es totalmente inde- 
pendiente de la longitud de las dos cadenas, como nos muestran 
claramente los experimentos prácticos. 

Por otra parte, la técnica que emplea el intérprete, aunque 
muy eficaz, puede producir serios inconvenientes cuando se haga 
una utilización intensiva de datos alfanuméricos en programas de 
una cierta complejidad. Procediendo de esta manera, en efecto, el 
BASIC provoca un enorme desperdicio de memoria, con la pre- 
tensión de obtener una velocidad muy superior, pero por desgra- 
cia nos encontramos con una auténtica rendición de cuentas: el 
tiempo que ha ahorrado hasta ese momento debe devolverlo de 
una vez y con intereses. 

Pero procedamos con orden, intentando comprender más de 
cerca como actúa exactamente el BASIC con las variables alfanu- 
méricas. Con referencia a la figura 1 del capítulo anterior, o sea, 
al mapa de la página cero del Commodore 64 (apéndice Q del li- 
bro de instrucciones), tecleemos el siguiente programa: 
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10 CR 

20 REM FINAL DE LA MEMORIA BISPONIBLE 
39 TMSPEER ISS) +PEEK/56)1206 

40 AEN FINAL DEL AREA DE VARIAELES 
30 REM (CRECE HACIA ARRIBA) 

60 FASFEER (AO MPEEKISO)R25b 

70 REM FIMAL DEL AREA DE CADENAS 
B0 REM (CRECE HACIA ABAJO) 

FO BOSPIEK(S1)+PEEK (5251256 

140 PRINT FA,8S, TM 

¿10 FRINT "MEMORIA OCUPADA POR LAS CADENAS"; 
20 P FN-35 

Erie TODAVIA DISPONIBLE”; 

120 ERINT ES-FA¡" BYTES" 


Sm 


Poniendo en marcha el programa obtendremos: 


2400 40960 40960 
MEMORIA OCUPADA POR LAS CADENAS 0 BYTES 
MEMORIA TODAVIA DISPONIBLE 38560 BYTES 


Es obvio que el área de las cadenas no contiene nada, desde 
el momento en que ninguna variable alfanumérica ha sido defi- 
nida. 

Inserte ahora la línea siguiente, que-introduce tres variables 
de cadena, pero todas iguales a la cadena vacía (a menudo lla- 
mada “nil”): : 


15 A$= ” da B$= 100: C$= 1110 
"Esta vez, el programa así modificado, nos da: 


2447 40960 40960 
MEMORIA OCUPADA POR LAS CADENAS 0 BYTES 
MEMORIA TODAVIA Pie OE 38517 BYTES 


La disminución de la RAM disponible hay que imputarla, en 
parte, al alargamiento del programa, debido a la inserción de la 
nueva línea 15 y, en parte, al espacio requerido para memoriza- 
ción de las variables, 

Ahora procedamos a atribuir un valor diferente de 'nil' a las 
tres cadenas, modificando como sigue la línea 15: 


15 Af="PRIMERA.: Bf="SEGUNDA”: C$="TERCERA” 
100 


El programa señalará ahora el primer valor igual a 2460, mieh- 
tras que la memoria todavía disponible ahora es igual a 38455; la 
pareja de valores 40960 y 40960, extrañamente, permanece inva- 
riable y sigue siendo nula la memoria ocupada por las cadenas. 
Aparentemente, los tres valores de cadena introducidos no apa- 
recen por ninguna parte. La clave del enigma se desvela pronto; 
una vez más, el BASIC se muestra muy astuto; aprovecha que los 
contenidos de las variables alfanuméricas están contenidos en el 
mismo prograrna BASIC (que, recordamos a los desmemoriados, 
reside también en memoria). Así, los punteros de las tres varia- 
bles A$ B$ y Cf se limitan a apuntar a estas situaciones del pro- 
grama —aquellas en las que están materialmente escritos los va- 
lores “PRIMERA”, "SEGUNDA” y "TERCERA”, de nuestra línea 15— 
y no se requiere ningún espacio extra. Pero ¿qué ocurre si, mani- 
pulamos cadenas para crear otras nuevas cuyo contenido no se 
ha definido a priori? La respuesta es obvia: el intérprete no puede 
evitar reservar cierto espacio de memoria para este menester, 
Para convencernos experimentalmente añadamos esta otra línea: 


25 C$= A$+B$+C$ 
y la respuesta será: 


2476 40931 40960 
MEMORIA OCUPADA POR LAS CADENAS 29 BYTES 
MEMORIA TODAVIA DISPONIBLE 38455 BYTES 


Esta vez, el intérprete ha tenido que utilizar, el depósito de 
las cadenas para colocar "PRIMERASEGUNDATERCERA”, que 
constituye el nuevo contenido de C$ Por otra parte, el valor 29 
señalado parece exagerado respecto a los 17 bytes que coástitu- 
yen la nueva longitud de C$ También este misterio tiene expli- 
cación. La concatenación (suma) de tres cadenas no se hace de 
una sola vez, sino en dos fases, en la primera se suman las dos ca- 
denas A$ y B$ obteniendo una cadena intermedia "PRIMERASE- 
GUNDA'”; en la segunda fase se concatena aquella a C$ para ob- 
tener su nuevo valor, El inconveniente reside en el hecho de que 
las cadenas auxiliares, utilizadas en las concatenaciones interme- 
dias, no son eliminadas (para evitar complicaciones y ganar tiem- 
po). Estas cadenas son como cadáveres que estorban, sin ningún 
fin, en la zona de las cadenas, sin estar "apuntadas”, y además, por 
ninguna variable allanumérica, Con nuestro programa, de momen- 
to, ciertamente no hay problemas, al disponer de 38455 bytes aún 
libres, pero no se necesita mucho para entender que, prosiguien- - 
do tan alegremente, bien pronto hasta la vasta memoria de C64 
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se queda corta al llenarse de la “basura” (en inglés "garbage") de- 
jada por las manipulaciones de datos alfanuméricos, 

Un amontonamiento catastrófico de los resultados intermedios 
de numerosas operaciones no es tan raro como se podría creer: 
piense por ejemplo en la construcción de una cadena, carácter 
tras carácter, mediante sucesivas instrucciones GET y compren- 
derá la seriedad del problema, incluso en situaciones a primera 
vista sencillas. Una cadena de 250 caracteres, construida según el 
sistema que acabamos de mencionar, crearía 249 cadenas inter- 
medias, de una longitud variable entre no y 249 bytes. Haciendo 
cuentas se trata de un basurero inmenso: (249x248)/2, casi igual 
a ¡30 kilobytes! Nos podemos divertir un poco imaginando una si- 
tuación parecida en el siguiente programa, que trata de valorar 
los efectos (perversos) del fenómeno en relación con la velocidad: 


¿ CLR 
10 Yks* *:J=01K=0+N=0:TD=0: DIM A$(100) 
26 FOR J=1 TO 100 
30 Y4=" ":TD=Ti 
$0 EDR K=0 TD 250 
30 Vh=Vg="A" 
50 NEXT K 
70 PRINTOTI-TD,4 
50 ASLD)=VS 
70 MEXT J 


Respiremos profundamente y dejemos para el próximo capí- 
tulo este y otros problemas, 
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¿QUE HACER PARA QUE El CARACOL CORRA? 


¡Cronómetros listos! 


ancémonos sin temor hacia el primer problema: 
dado que tanto las variables simples como las 
matrices se memorizan justo después de acabar 
el programa ¿qué sucedería si, en un momento 
dado de la ejecución, definiéramos una nueva 
variable? Está claro (por lo menos.se puede in- 
tuir): el intérprete BASIC no tiene más remedio 
que desplazar todas las matrices (cada una con 
siete bytes); esta latosa operación supone una 
DÓrida de tiempo que puede resultar notable si hay muchas ma- 
trices. 

Con el programa siguiente es fácil verlo, midiendo experi- 
mentalmente la ralentización con el cronómetro interno del C64: 


1 CLRIREM RESET PUNTEROS 

10 TD=0:REM PREDEFINE VARIABLE DE TRABAJO 

20 DIM AR(1000):REM DEFINICION DE LA MATRIZ 

30 TD=TI:REM DA LA SALIDA AL CRONOMETRO 

40 A=0;B=0:0=0:REM DEFINE OTRAS TRES VARIABLES 
50 PRINT TI-TD:REM TIEMPO TRANSCURRIDO 


Resultado: 98x 1/60 segundos (más de un segundo y medio) 
para desplazar todos los 3001 elementos de siete bytes hacia arri- 
ba; indispensable operación repetida tres veces, tantas cuantas va- 
riables (A, B y C) son introducidas. En otras palabras, con la ino- 
cente instrucción intermedia de la línea 40, se ha perdido un tiem- 
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po precioso sin ningún sentido práctico. Seguramente sorá ins- 
tructivo realizar la medida efectuada en el programa anterior para 
distintos tipos y dimensiones de matrices. Nos daremos así cuen- 
ta que cuando se acusa al BASIC de ser un caracol hay bastante 
razón, Por ello, para que no sea algo temible su lentitud, debemos 
tomar medidas para, por lo menos, las situaciones más gravosas 
de pérdida improductiva de tiempo. 

El caso que estamos examinando nos enseña claramente lo 
oportuno que resulta que en un programa se definan a! principio 
todas las variables en juego evitando ouidadosamente "golpes de 
ingenio” durante las instrucciones siguientes. El precio que se 
paga por no seguir esta regla de oro es el de temibles ralentiza- 
ciones, en un lenguaje ya de por sí no muy brillante en este as- 
pecto. Además, siguiendo la sencilla regla que acabamos de dar, 
se matan dos pájaros de un tiro, ya que se obtiene también una 
mayor claridad en la documentación. Por ejemplo, en un progra- 
ma de una cierta complejidad se recomienda que en las líneas ini- 
ciales esté contenida una serie de "Informaciones sobre los Da- 
tos” que resuman la organización. Nos podemos ayudar eficaz- 
mente con las REM, como en el ejemplo (indicativo) siguiente: 


10 REM 44xk RESUMEN DE DATOS  xrk 
20 REM 4x4 1-VALDRES CONSTANTES 4kk 
30 REM VERDADERD=-1:FALSO=0:RA122=1,4142335 


60 REM 42% 2-DATOS DE ENTRADA 138 
70 QP=0:PREC=0:N0Mé=,,.... 


100 REM 113 3-AREAS DE TRABAJO 244 
110 IMP=0:S5W=0;:DEP=0;DEP$=" 
120 DIM VET(100),TABS(200)=0 0. 


1e.n.n.n.osas 1I.....o...s 


(en ninguno de los ejemplos de los capítulos 1 al 5 se ha adopta- 
do este criterio, dada la sencillez de los casos examinados; esto 
no es óbice para que en algunos de estos casos elementales val- 
ga la pena introducirlo, para evitar los comportamientos lentísi- 
mos). Pero sigamos con el cronometraje en este otro programa: 


1 CLR : 
10 K=0:TB=TI:REM DA SALIDA AL CRONOMETAD 

20 FOR E=0 TO 3000 

30 NEXT K 

40 PRINT TI-TD:REM TIEMPO TRANSCUREIDO 
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El tiempo de ejecución resultado es de 240 "jiffys” (este ex- 
traño nombre corresponde a 1/60 de segundo), es decir, unos 4 
segundos. Intente ahora sustituir en la línea 30 NEXT K por un sim- 
ple NEXT: habrá una reducción a 200 jiffys, 43 menos. Esta no des- 
deñable reducción se debe al hecho de que si se especifica la va- 
riable K del ciclo FOR, el intérprete está pbligado a comprobar, 
cada vez, su existencia en el área específica, Resultado: una inútil 
y perjudicial falta de tiempo, bastante impensable. Por lo tanto con- 
viene no especificar en el NEXT la variable del bucle excepto 
cuando se corra el riesgo de dar lugar a alguna ambigiiedad, como 
en los bucles anidados. Escribiendo el bucle todo entero en una 
misma línea el beneficio de velocidad obtenido es, en cambio, 
más modesto de lo que se podría pensar: exactamente 193 jiffys 
contra los 200 y 243 de los dos casos que hemos visto. 

Probemos ahora con lo siguiente: 


1 CLR 

10 N=0:K=0:TD=T1 
26 FOR K=0 TG 3000 
30 N=N+1 

40 PRINT TI-TD 


El tiempo esta vez, es de 731 sesentavos de segundo. Si in- 
tentamos cambiar el tipo de operación tendremos: 


30 N=N-1 tiempo=737 jiffys 
30 N=N*1 tiempo=68] jiffys 
30 N=N/l tiempo=688 jiffys 


Como vemos las diferencias son muy exiguas aunque, 'curio- 
samente, la multiplicación resulta la operación más rápida. Evi- 
dentemente, estos son los misterios de las operaciones en coma 
flotante, Es conveniente asimismo hacer las mismas pruebas con 
un número distinto a la unidad. Sustituyendo en los casos que aca- 
bamos de ver, el | por 1234, los tiempos resultarán iguales a: 


1368 para la suma; 

1372 para la resta; 

1315 para la multiplicación; 
1322 para la división. 


Es decir: los tiempos aumentan considerablemente, casi se du-. 
plican, cuando se sale de los casos particulares como 1 6 0. Lle- 
gados aquí, hagamos una modificación aparentemente inocente: 
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1 CLR 

10 N=0:V=1234:TD="1 
20 FOR K=0 TO 3600 
30 N=N+Y 

40 PEINT TI=TD 


Los tiempos, para las cuatro operaciones aritméticas, resulta- 
rán ahora, por el mismo orden de antes: 662, 668, 609 y 6168 jiffys, 
es decir, la mitad que antes, para hacer lo mismo. La explicación 
de este extraño hecho reside en que el intérprete sólo puede tra- 
bajar con variables del mismo formato (coma flotante con coma 
flotante, enteros con enteros) por lo que está obligado a hacer la 
traducción de ino de los dos operandos al fonnato del otro, tra- 
bajo bastante costoso en términos de tiempo (las diferencias pue- 
den resultar trágicas cuando las instrucciones que conciernen a 
tipos mixtos se encuentran dentro de un bucle formado por mu- 
chísimas iteraciones). 

Naturalmente, se podría obtener el mismo resultado sustitu- 
yendo en la línea 30 el valor 1 por 1234.0, pero es más práctico y 
elegante definir desde el principio el valor V de la constante. Ha- 
ciéndolo así, sólo se perderá el tiempo necesario para la asigna- 
ción al principio y de una vez por todas. La segunda recomenda- 
ción, que en esencia va emparejada a la dada anteriormente, se 


podría enunciar así: es necesario evitar, hasta donde sea posible, 
los valores inmediatos, sustituyéndoios por las variables adecua- 
das, inicializadas al conienzo del programa de una vez por todas, 


para llamarlas cuando sean necesarias. 

A estas variables que, en esencia, corresponden a constantes 
se les deberá dar, si es posible, nombres mnemónicos adecuados, 
tipo R2, PI (por "raíz de 2”, número "pi") y similares. 

Ahora complicaremos un poco más la vida al intérprete BA- 
SIC, añadiendo un bucle en un programa más largo en el que haya 
muchas variables activas en el momento de la ejecución. Añada- 
mos al programa estas dos líneas: 


331 ES="ABCD":0%=456 
598765: F=0;6=0:H=0:3=75 


rm .. 


Volvamos a ejecutar el programa, en apariencia inalterado en 
su parte central, de la que se mide la duración. Sin embargo, ex- 
trafamente, el tiempo de ejecución es de 848 sesentavos de se- 
gundo, un exceso de más de un tercio. Esta paradoja se explica 
según lo que hemos visto anteriormente sobre la técnica usada 
por el BASIC para memorizar las variables, es decir, cómo las pone 
una tras otra siguiendo el orden temporal de definición. Esta vez 
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"N" y "V" serán colocadas, respectivamente, en el décimo y undé- 
cimo lugar del área destinada a las variables no indexadas. El in- 
térprete, todas las veces que tiene que acceder a ellas, tendrá que 
buscar entre los nombres, partiendo siempre desde el primero, 
hasta encontrar el que desea. La ralentización de la ejecución pue- 
de llegar a ser dramática en programas de cierta complejidad, en 
los que sea notable la cantidad de datos en juego. He aquí, otra 


recomendación práctica: resulta aconsejable cuidar el orden de 
definición de las variables de lorma que : hasta donde sea posible, 
$e pongan en los primeros puestos las de uso más corriente o las 
que necesiten de un acceso más rápido 


¿Y qué ocurre con los comentarios? 


Alguno de ustedes podría llegar a temer, según lo visto, que 
los inconvenientes de la ralentización acechan a cada paso que 
den. Pero las sorpresas no sólo surgen al principio. intenten aña- 
dir la siguiente línea: 


25 REM COMENTARIO INUTIL 


en el interior del bucle que estamos examinando: su duración pa- 
sará a 961 jiffys. ¿Cómo es posible que una instrucción que no 
comporta ningún tipo de elaboración haga perder tanto tiempo 
(113 jiffys de más)? Es probable que los más adelantados sepan 
encontrar una explicación exacta a esta pregunta. Será suficiente 
con que piensen en lo dicho sobre el comportamiento del intér- 
prete, podríamos decir incluso sobre su propia naturaleza. 

Les dejamos un poco de tiempo para pensar sobre ¡esto y, 
mientras tanto, modificaremos la línea 25, alargando un poco el tex- 
to del comentario (por ejemplo: COMENTARIO QUE QUIZA SE PO- 
DRIA ELIMINAR); ahora el tiempo llegará a 1082 jiffys, lo que nos 


lleva a la conclusión de que lai lentización originada por un REM 
es también proporcional a su longitud 

¿Han encontrado la explicación que om pedimos? Probable- 
mente se parecerá a la que vamos a dar: la namraleza secuencial 
de la interpretación, es decir, su ejecución es tras rr supone 
también una notoria pérdida de tiempo en el examen de las ing- 
irucciones que, como los comentarios, no dan lugar a un proceso 


de traducción a lenguaje mádniná ni, mucho menos, a la ejecu- 
ción de un código. De todas formas, el intérprete no puede evitar 
hacer tal examen cada vez que, por así decirlo, se tropieza de nue- 
vo con una REM, La reflexión que acabamos de hacer nos da pie 
para dar otro consejo: evite usar comentarios en el interior de los 
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bucles, y limítelos en todos los casos a la longitud mínima indis- 
pensable, 

Seguramente alguno de ustedes dirá que se trata de un prin- 
cipio archiconocido, mejor así. Solamente queremos añadir que, 
cuando no se quiera renunciar a una utilización abundante de co- 
mentarios, lo mejor que se puede hacer es tener en la memoria 
de masa dos versiones del programa: la primera, sin REM, servirá 
para la ejecución, mientras la otra, rica en comentarios incluso ki- 
lométricos, se habilitará como copia de archivo para ser utilizada 
cada vez que se quiera trabajar sobre las distintas instrucciones 
para revisarlas o ponerlas al día. 

Ahora, divirtámonos con este programa: 


1 CUR 
10 K=0:+T1D=T1 
¿0 FOR K=0 TO 3000 
30 50SUB 1000 
40 NEXT K 
30 PRINT TD-11 
20 END 
1000 RETURN 


Tiempo: 504 jiffys. Si se sustituye el número 1000 de la subru- 
tina por 100 se obtiene una pequeña ventaja (484 jiffys) debida a 
que al convertir en binario, de uso interno, un número a otro más 
pequeño requiere para su manejo menos tiempo. Pero no es esto 
todo. Añadamos instrucciones que, a primera vista, no influyan en 
la duración del bucle que estamos diseccionando, o sea: 


i CLR:GOTO 10 
2 REM 
3 
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73 REM 
76 REM 
77 REN 
78 REM 
79 REM 


Esta vez la duración ha pasado a 611 jiffys, más del 25% de 
aumento. ¿Cómo es posible? Para entenderlo mejor realicemos 
una nueva modificación: 


2 RETURN 
30 GOSUB 2 


obtendremos que la duración se reduce a 405 jiffys. El misterio pa- 
rece hacerse más denso, pero pronto se aclarará si piensa en cómo 
actúa el intérprete en la búsqueda de un número de línea. Dado 
que las instrucciones están memorizadas una tras otra, en orden 
ascendente de línea, pero sin limitaciones sobre el paso de la nu- 
meración, lo único que puede hacer el BASIC es explorar todas, 
recorriéndolas a partir de la primera, hasta encontrar la que tenga 
el número indicado en el COTO o GOSUB. Esto explica fácilmente 
cómo, para alcanzar la línea 1000, se utiliza más tiempo que para 
encontrar la línea 2. Conclusión: contrariamente a lo que suele ha: 


cerse es preferible, para conseguir una mayor velocidad pone! 
las subrutinas a la cabeza en lugar de a la cola del programa, como 
se nace en Pascal, 


En el caso de programas muy largos la ventaja conseguida 
con tal proceder llega a ser enorme y capaz de reducir drástica- 
mente los tiempos de respuesta. Evidentemente, la consideración 
anterior vale también para los GOTO y los THEN, aunque coh ellos 
puede resultar difícil una intervención sin arriesgarse a alterar el 
flujo lógico correcto de las instrucciones. En cualquier caso, hay 
que intentar poner al principio las instrucciones que se ejecutan 
más a menudo. 

Resumiendo, las reglas prácticas para aumentar la velocidad 
de un programa BASIC interpretado que hemos visto hasta ahora 
son las siguientes: 


O escribir NEXT en lugar de NEXT y la variable del bucle; 

O definir todas las variables y los vectores en las líneas ini- 
ciales, incluidas las constantes, a las que se les atribuirá un 
nombre simbólico, 

0 anteponer en el orden de definición los datos más utiliza-, 
dos y/o aquellos para los que sea necesario un acceso lo 
más rápido posible; 
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0 evitar, o por lo menos limitar, el número y longitud de los 


0 situar las subrutinas a la cabeza, y no a la cola, del progra- 
ma. 


Sería un útil ejercicio, una vez llegados aquí, repasar los ejem- 
plos de los primeros capítulos, asociándolos con estos consejos 
prácticos. 


De nuevo las cadenas 


Seguramente las cadenas despertarán también el interés de 
los lectores, ya sea por lo curioso de su comportamiento, ya por 
la importancia de las ralentizaciones que pueden provocar, de las 
que es indispensable conocer sus causas y posibles remedios. 

El tiempo invertido en la construcción de una cadena es de 
91 jiffys la primera vez; después va creciendo, pero no de un modo 
uniforme, alcanzando el valor 102 en el paso 15 y bajando a 91 en 
el 16, para seguir creciendo continuamente hasta un valor de 156 
en la cadena 43, Probando con DIM A$(500) todos los tiempos re- 
sultan alargados notablemente, alcanzando en el paso 49 un valor 
de 297 sesentavos, más del triple de lo qe se empleó al princi- 


vio, Evidentemente, cuaudo se da cuenta el intérprete de que no 
tiene más e 'spac lo a su disposición se Ve obligado a eliminar las 
Cadena: 5 ió s, 1eorde mando las activas para poder continuar la 

ejecución de manera apropiada, lo que comporta una enorme can- 
tidad de hbajo ya que hay que cormpactar casi 40 kilobytes de 


memoria. Pero ¿cómo se explica que con un número de variables 
más elevado, 500 en lugar de 100, el tiempo resulte más largo? El 
número de cadenas creadas no tendría nada que ver con la ex- 
tensión de la matriz. Esto se explica porque a mayor número de 
variables definidas más costosa resulta la primera parte (construc- 
ción) en términos de tiempo. 

El proceso descrito anteriormente es llamado en inglés “garba- 
ge collection” (detección y eliminación de la información inservi- 
ble) y es una expresión que explica elocuentemente el objeto de 
la reordenación del área de las cadenas. La operación supone 
grandes problemas en la ejecución de algunos programas com- 
plejos, ya sea porque puede dar lugar a ralentizaciones de bas- 
tantes décimas de segundo, ya porque la acción de limpieza pue- 
de empezar en momentos bastante imprevisibles que, si no se tie- 
ne suerte, podrían coincidir con los más críticos y menos indica- 
dos. Duranle la recogida de la información inservible el ordena- 

dor aparece bloqueado y no responde a ninguna orden, incluida 
STOP, para volver a funcionar al final de la operación como si nada 
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hubiera sucedido; un comportamiento engañoso pero plenamen- 
te justificado por la exigencia de poner remedio a una situación 
insostenible, Por lo tanto, no hay tiempo para gestionar otros re- 
cursos de E/S. 

Quizá el único remedio practicable es el de prever la reco- 
gida de información inservible, forzando esta operación en un mo- 
mento elegido cautelosamente por el programador. Esto se pue- 
de hacer recurriendo a la instrucción FRE(0). En efecto, la pregun- 
ta referente a la cantidad de memoria aún disponible obliga al BA- 
SIC a ordenar el espacio de las cadenas para dar una respuesta 
inexacta sobre las disponibilidades reales de espacio, lo cual pue- 
de aprovecharse adecuadamente. En el caso del programa que es- 
tamos examinando podemos añadir la línea: 


22 K=FRE(O) 


La duración del proceso de construcción de la cadena per- 
manecerá constante (91) hasta el ciclo 23, pues la operación par- 
tirá siempre con la memoria reordenada y con todo el espacio so- 
brante a su disposición. Desgraciadamente, la presencia de varia- 
bles activas reduce sucesivamente esta disponibilidad y, a partir 
del paso 24, se hace necesaria una recogida de información inser- 
vible incluso durante la creación de la simple cadena, lo que alar- 
ga el tiempo de ejecución. Por otra parte, la duración de la reor- 
denación crece proporcionalmente al número de variables que se 
deban examinar y en este punto el BASIC entra en crisis, 

Dos añadidos posteriores permiten analizar con precisión el 
funcionamiento de los tiempos de trabajo y de reordenación: 


21 TD=TI 
23 PRINT TI-TD t 


Paradójicamente es indispensable tener una gran capacidad 
de memoria para conseguir una cierta velocidad en el tratamien- 
to de las cadenas. No es tanto una cuestión de espacio que pueda 
ser ocupado, como la consecuencia indirecta de la cantidad de ve- 
ces que tiene que realizarse necesariamente la recogida de infor- 
mación inservible: cuanto más grande sea la capacidad del área 
de las cadenas menos veces tendrá que intervenir el ordenador 
para hacer una reordenación. 

Es una buena regla limitar al mínimo el número de las varia- 
bles, es decir, abreviar la primera fase de reordenación; lamenta- 
blemente no se puede hacer mucho para superar este grave e in- 
sospechado límite, típico de los lenguajes interpretados en gene; 
ral. 

Añadiéndole a nuestro programa las líneas siguientes: 
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31 D=PEEK(S1)+PEEK (52) 4256+ (PEEK(49)+PEEK(50)1256) 
52 PRINT D,K 


será posible hacerse una idea sobre ocupación de la memoria du- 
rante la complicada construcción de una larga cadena, 

Nos referiremos, por último, a otra consecuencia de la "Reco- 
gida de Información Inservible”. La presencia en el C64 de una 
puerta RS232 es un instrumento sencillo y económico para la co- 
municación, también a gran distancia, entre ordenadores. Quien 
lo haya probado se habrá dado cuenta que las cosas en BASIC no 
siempre marchan bien. Aunque no se tienen problemas para la sa- 
lida de datos, incluso a grandes velocidades (2.400 bits por se- 
gundo), es mucho más difícil intentar adquirir datos, especialmen- 
te con la instrucción GET. En efecto, muy pronto, al recurrir a reor- 
denaciones de memoria (que, como hemos visto, inhiben las ope- 
raciones de E/S) no se permite al BASIC descargar el almacena- 
miento intermedio del canal serie al mismo ritmo con el que se 
carga el Sistema Operativo, por lo que el ordenador entrará en cri- 
sis obstinadamente. Disminuir la velocidad del canal RS232 sólo 
sirve para aplazar el bloqueo del sistema, dado que la duración 
de la recogida de información inservible tiende a aumentar con 
el crecimiento de las variables activas y a hacerse más frecuente 
según la memoria disponible se reduce. La única forma de supe- 
rar las limitaciones impuestas por el lenguaje interpretado viene 
dada por la adopción de rutinas de manejo escritas en lenguaje 
máquina, 


Compiladores de BASIC, el punto y final 


Es éste un tema a menudo motivo de encendidas discusiones 
entre los usuarios de pequeños sistemas. Se trata de programas 
traductores capaces de "preinterpretar” el programa fuente tradu- 
ciéndolo a lenguaje evolucionado, y ganando así tiempo en el mo- 
mento de la ejecución del programa objeto (o sea, el programa 
fuente traducido al lenguaje máquina). 

Hay quienes piensan que estos aparatos transforman un pro- 
grama fuente en BASIC a un programa en lenguaje máquina idén- 
tico (o casi) a aquel que hubiera sido escrito por un programador 
mediano en lenguaje Ensamblador. Contrariamente a lo que ase- 
gura la publicidad esto está muy lejos de ser cierto. Los compila- 
dores más corrientes se limitan, casi siempre, a traducir únicamen- 
te las instrucciones de BASIC a los correspondientes saltos a sus 
respectivas subrutinas de manejo. Evidentemente, se obtiene un 
cierto aumento de la velocidad ligado al hecho de que se elimina 
el tiempo de interpretación, pero por otra parte la mayoría de es- 
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tos compiladores (hablamos de los que se utilizan para ordena- 
dores no profesionales) hacen muy poco más, limitándose a sen- 
cillas modificaciones, no tanto para optimizar el código sino para 
aportar pequeños retoques como la eliminación de todos los co- 
mentarios. 

Según nuestra experiencia personal hay que estar preveni- 
dos frente a ciertos compiladores: las ventajas que se puedan ob- 
tener (mediocres muchas veces) pueden no compensar los gas- 
tos y disgustos con que nos podemos encontrar en la compila- 
ción. En cualquier caso, sólo un programa BASIC que esté bien op- 
timizado podrá beneficiarse de las ventajas prometidas por la 
compilación, y siempre que el tiempo de interpretación de las ins- 
trucciones haya llegado a un porcentaje no despreciable con res- 
pecto al de ejecución. 

Concluyendo: para dar un buen empuje al caracol BASIC es 
una buena regla seguir los consejos prácticos que les hemos re- 
comendado sin olvidar, naturalmente, el planteamiento general: 
hacer un programa correctamente es difícil, pero posible. 
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BIBLIOTECA BASICA INFORMATICA 


INDICE GENERAL 


1 Dentro y fuera del ordenador 
Todo lo que debemos saber para poder comprender 
en qué consisten y cómo funcionan los ordenadores. 

2 Diccionario de términos informáticos 
Una perfecta guía en ese «naremagnum» de palabras y 
frases ininteligibles que se usan en Informática. 

3 Cómo elegir un ordenador... que se ajuste a nuestras 
necesidades 
Las características y detalles en los que deberemos 
centrar nuestra atención a la hora de elegir un 
ordenador. 

4 Cuidados del ordenador... cosas que debemos hacer o 
evitar 
Esos consejos que le evitarán problemas con su 
equipo, permitiéndole obtener el máximo provecho.  : 

5 ¡Y llegó el BASIC! (1) 
Un claro y sencillo acercamiento a los principios de 
este popular lenguaje. 

6 Dimensión MSX 
El primer BASIC estándar que ha conseguido difundirse 
de verdad no es sólo un lenguaje, hay bastante más, 

7 ¡Y llegó el BASIC! (1) 
Instrucciones y comandos que quedaron por explicar 
en el la parte 1 

8 Introducción al Pascal 
Una buena manera de adentrarse en la programación 
estructurada, ¡la nueva ola de la Informática! 

9 Programando como es debido... algoritmos y otros 
elementos necesarios. 
Ideas para mejorar la funcionalidad y desarrollo de sus 
programas. 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 
25 


Sistemas operativos y software de base 

Qué son, para qué sirven. Unos desconocidos muy 
importantes. 

Sistema operativo CP/M 

Uno de los sistemas operativos para microprocesadores 
de 8 bits de mayor difusión en el mercado, 

MS-DOS: el estándar de IBM 

Sistema operativo para el microprocesador de 16 bits 
8088, adoptado por el IBM-PC. 

Paquetes de aplicaciones. Software “*pret a porter” 
Características y peculiaridades de los más importantes 
paquetes de aplicaciones 

VisiCalc: una buena hoja de cálculo 

Interioridades y manejo de una de las hojas de cálculo 
más usadas, 

Dibujar con el ordenador 

Profundizando en una de las facetas útiles y divertidas 
que nos ofrecen los ordenadores. 

Tratamiento de textos... para escribir con el ordenador 
Cómo convertir su ordenador en una máquina de 
escribir con memoria y todo tipo de posibilidades. 
Diseño de juegos 

Particularidades características de esta aplicación de 
los ordenadores. 

LOGO: la tortuga inteligente 

Un lenguaje conocido por su «cursor gráfico», la tortuga, 
y sus aplicaciones pedagógicas al alcance de su mano. 
BASIC y tratamiento de imágenes 

Todo lo que en ¡Y llegó el BASIC! no se pudo ver sobre 
las imágenes y gráficos en el BASIC, 

Bancos de datos (1) 

Peculiaridades de una de las aplicaciones de los 
ordenadores más interesantes, y que más dinero 
mueven. 

Bancos de datos (11) 

Profundizando en sus características. 

Paquetes integrados: Lotus 1-2-3 y Simphony 

Estudio de dos de los paquetes integrados (Hoja de 
cálculo +base de datos +..) más conocidos. 

dBASE Il y dBASE II 

Cómo aprovechar las dos versiones más recientes de 
esta importante base de datos. 

Los ordenadores uno a uno 

Un amplio y completo estudio comparativo, 

Cálculo numérico en BASIC 

Una aplicación especializada a su disposición. 


26 Multiplan 
Cómo hacer uso de este moderno paquete de 
aplicaciones. 

27 FORTRAN y COBOL 
Dos lenguajes muy especializados y distintos, 

28 FORTH: anatomía de un lenguaje inteligente 
Principales características de un lenguaje moderno, 
flexible y de amplio uso, en la robótica. 

29 Cómo realizar nuestro propio banco de datos 
Conocimientos necesarios para poder fabricar un 
banco de datos a nuestro gusto y medida. 

30 Los paquetes integrados uno a uno 
Todos los que usted puede encontrar en el mercado, 


NOTA: Ingelek, S. A. se reserva el derecho de modificar, sin 
previo aviso, el orden, título o contenido de cualquier volu- 
men de la colección. 


i deseamos que nuestros programas en 
BASIC sean flexibles, rápidos, y efectivos 
no basta con un mero conocimiento de las 
instrucciones a nuestra disposición y de 
la función de cada una de ellas. Debemos 
llegar un poco más lejos. 
Los algoritmos son, por ejemplo, un pun- 
to clave. Tanto si se reducen simplemen- 
te a problemas numéricos como si exigen una línea de re- 
flexión (una estrategia) debemos tener claro el modo de 
enfrentarnos a su programación. Asimismo es de gran im- 
portancia conocer la forma en la que el intérprete BASIC 
maneja la memoria, asignando, moviendo y borrando va- 
riables, constantes y matrices, y la manera de lograr que 
un lenguaje tan lento no lo sea más todavía sino que, por 
el contrario, gane en rapidez. 
Todos estos temas, arropados con gran cantidad de ejem- 
plos, serán el núcleo de este libro. 
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